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WES i LAKE FINANCIAL SERVICES 

HOW TO STRUCTURE A DEAL USING THE WESTLAKE BUY MODEL 



Step 1 

Credit Application 

Include nearest 
relative and landlord 
information. 
Know income, 
debts, and time on 
job. 



Step 2 

Review Credit 
Bureau Printout 

• Count good and 
derog items. 

• Time on bureau 

• See Credit Bureau 
Input Guidelines 



Step 3 

KELLEY BLUE BOOK 

• Wholesale Book + 
approved adds 

• Deduct High Miles 

• Do NOT add for 
low miles 



Step 4 

Deal Structure 

• Price, down, term 

• Fine-tune deal 

• Adjust price, down, 
term, reserve 

• Check Amt Fin 

• Complete Stips 



SCREEN DEFINITIONS 



#Years on Credit Bureau- The earliest record of credit. 
You may count Collection Accounts from the date 
as$i§ned, but not inquiries. If no credit, input 0.0. 

# (fdod Credit Items- Count the number of "good" 
pieSes of credit on the bureau, using Westiake guidelines. 
"Gefckf items that are later reported as "derog" items do not 
coibJt. Multiple "good" entries on the same account do not 
cofm. Do not count child support (F/S) accounts. Do not 
coddt student loans. NOTE: There are some accounts that 
arelboth "good" and "derog." 

$ High Good Credit- The highest credit line ever 
established on an account classified as "good" credit. 
CfW support (F/S) and student loans do not count 

# filrog Credit Items- Count the number of "derog" 
pieSs of credit on the bureau, using Westiake guidelines. 
Acjfeeunts charged off with Bankruptcy are derog. Repos 
coffit as both 1 "derog" and 1 under "# of Repossessions." 
Do not count child support (F/S) accounts. Do not count 
student loans. Do not count Medical Collection 
Accounts. NOTE: There are some accounts that are both 
"good" and "derog." 

$ High Derog Credit- The highest amount ever 
established on any "applied for" account classified as 
"derog" credit. Do not count tax liens, student loans, or 
child support. 

# of Repossessions/Auto Losses- Count all repos, 
voluntary surrender, redeemed repos, paid repos, charged- 
off autos, BK LIQ autos, insurance deficiency autos, and 
any other autos (or installment loans from any lender that 
makes auto loans that could be an auto loan) that appear 
to have ever been repo'd or skipped or resulted in any 
form of a loss to a creditor. If spouse is on the contract, 
input total # of repos between them. 

Prev Bankruptcy: Y/N- Input Y if BK or if any BK 

accounts appear on credit bureau, whether buyer or 
spouse. Must be discharged or dismissed. 

Customer Owns Home: Y/N- Must supply 
documentation to input Y. Must be current on mortgage or 
be able to prove mortgage is current. Must live in the 
house they own. Mobile homes not eligible unless 
customer owns the land as well as the home. 



Residence Stability #- Since age 18. Check credit and 
driver's license for any conflict. Must be able to contact 
landlord. 

#Years on Present Job- Since age 18. Be sure to get 
verifiable info from the customer. Foster Care, Home 
Care, AFDC, SSI, welfare, and any other type of local, 
state, or federal assistance input 0.0. If retired or 
permanently disabled, input 2 years. Self-employed, letter 
POI, or family business not more than 2 years unless can 
prove otherwise. Temp jobs / agencies input 0.1 years 
unless we can verify with the employer, not the agency. If 
seasonal employee, use max of 2 years employment. 

Gross Monthly Income- Verifiable gross income before 
taxes. Foster Care, Home Care, AFDC, SSI, welfare and 
any other type of income received due solely to the 
existence of another person count 50%. No food stamps, 
student loans or grants may be counted as income. Soft 
POI (s) input justifiable income to max $1500/mo. If paying 
child support on bureau or paystub, deduct the amount 
from income (Windows Program: Input in "Family 
Support Debt"). Don't add it to Other Monthly Debts. 

Rent/Mortgage- Input Rent or Mortgage Payment. 

Other Monthly Debts- All monthly payments listed on 
application or still active/open on credit bureau, besides 
rent or mortgage. If no payment shown count 5% the 
balance. Be sure to count any garnishments or 
discretionary allotments on paystub if not listed on credit 
bureau, except for child support. Don't count child 
support as debt, deduct it from income (Windows 
Program: Input in "Family Support Debt"). 

Phone/Utility/Checking in Customer Name- Input 
"Y* if the customer's home phone, cable or utility bill is in 
their name, or if the customer has a checking account 
statement in their name. Bill/Statement must come to the 
customer's address or show service to the customer's 
address. 

Spouse Co-X: Y/N- Input Y only when both spouses 
sign. Fill in the pop-up questions per policy. 

Other Co-X: Y/N- Input Y if there is a non-spouse co- 
signer. Fill in the pop-up questions per policy. 
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VEHICL^ CLASSIFICATION SHEF~ 11/2000 



IMPORTS 



ACURA 

Integra Man Trans 3 

Legend 86-90 5 

Vigor 3 

All Others 1 

DAEWOO 

4 Dr + Auto 3 

All Others 4 

HONDA 

Civic 92-newer 4dr+ Auto "S" 
Civic 92-newer 4dr+Man.. 1 

Other Civic Automatic 2 

Other Civic Man Trans.... 3 

CRX/Prelude 3 

Accord 89&Older 3 

Accrd 91-94 LX 4dr+Auto"S" 
All Others inc Accrd Wgn. 1 
HYUNDAI 

IScoupe (All) 5 

ODther 97+newer 4 

CAN Others 3 

^Pickups 1 

Strooper/Rodeo 4dr+Auto. 2 

Ctrooper/Rodeo Other 3 

M Others 5 

5 All 3 

MAZDA CARS 

|*MX-6 5 

rMiata 5 

Srotege 94-older 4 

3*X7 5 

2929 91 -older 4 

"^HOthers 3 

MAZDA TRUCKS 

Pickups Auto+Xcab 2 

Navajo 4 

All Others 3 

MITSUBISHI 

Galant 94 & newer 3 

Montero 3 

Pickups 1 

All Others 5 

NISSAN CARS 

Altima 93-95 w Auto 2 

Maxima 89&newer Auto... 2 

Sentra 92-o!der "S" 

Sentra 93-newer 1 

240SX 4 

300 ZX 5 

All Others 3 

NISSAN TRUCKS 
Pathfinder 

4 Dr + Auto 1 

Pickups "S" 

Quest 2 

All Others 3 



VEHICLES 10 YRS OLD OR MORE: 
Add 100,000 miles to odometer if a 5 

digit odometer. 6 digit odometer 
vehicles must be booked with at least 
100,000 mites. 



IMPORTS (Cont) 

TOYOTA CARS 

Camry 92-93 Auto "S" 

Celica/Cressida/M R2. . . . 3 

Corolla 93-94 Auto "S" 

Supra 5 

AllOthers 1 

TOYOTA TRUCKS 

Pickups "S" 

4-Runner 90-91 

V6+4dr+Auto "S" 

Vans 89 & older 4 

All Others 1 

VOLKSWAGEN 

Jetta/Passat 4 Dr 3 

All Others 5 

DOMESTICS 

BUICK 

Quad 4, Tech 4 or 5 

Regal 92&newer w 3.8L. 2 
Other 92&newer w 3.8L... 3 
Century/Skylark/Regal.... 3 
Ail Others 4 

CHEVROLET 

Quad 4, Tech 4 or 2.8L... 5 

Camaro 5 

Corvette 5 

Corsica/Caprice 4 

All Others 3 

CHEVROLET/ 

GMC TRUCKS 

Astro/Safari 2WD 1 

Blazer 4dr+4.3L 95+ 2 

S10 Blazer 2dr All 5 

C-Series w Auto 1 

C-Series Other 2 

K-5 Blazer/Tahoe/Yukon.. 1 

Lumina Van 5 

S10X-Cab4.3L+Auto 1 

Suburban 2 

All Others 3 

CHRYSLER 

Cirrus 3 

Concorde 4 

Town & Country 5 

All Others 5 

DODGE/PLYMOUTH CARS 

Turbos/Convertibles 5 

Intrepid 4 

Neon 4 dr + Auto 3 

Shadow/Sundance 3 

Spirit/Acclaim 3 

Stratus/Breeze 3 

All Others 5 

DODGE / PLYMOUTH TRUCKS 

CaravanA/oyager 

96-newer 2WD 3 

CaravanA/oygr Other 5 

94+ Trucks V-8 2 

Dakota V6A/8 2 

All Others 3 
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DOMESTICS 

FORD CARS 

Turbo/Supercharger 5 

Escort 4 

Mustang 94 & newer 2 , 

Taurus Sedan 95 & older. 5 

Taurus Wagon 5 

T-Bird 90-93 2 

All Others 3 

FORD TRUCKS 

Aerostar4X4 5 

Explorer 4 Dr + Auto 2 

Explorer Other 4 

F Series Auto + V-8 1 

F Series Other 2 

Ranger X Cab 

6 cyl + Auto 1 

Ranger 6 cyl + Auto 2 

All Others 3 

GEO 

Prism 4dr Sedan w Auto.. 1 
Prism 4dr Sedan w Man... 2 

Tracker 5 

All Others 3 

JEEP 

CJ & Wrangler 6 cyl 1 

Other CJ/Wrangler 3 

Cherokee 4dr+4.0L+Auto 3 

Grand Cherokee 3 

All Others 5 

LINCOLN 

Towncar 4 

All Others 5 

MERCURY 

Capri 5 

Tracer 4 

Sable Wagon 5 

Sable Sedan 95 & older... 5 
All Others 3 

OLDSMOB1LE 

Quad 4, Tech 4 5 

Silhouette 5 

All Other 3.8L or V8 4 

Ail Other 4 or 6 cyl 3 

PONTIAC 

Quad 4, Tech 4 5 

Firebird 5 

Transport 5 

All Others 3 

SATURN 

All 3 



ADDITIONAL POLICIES 

1. ANY VEHICLE NOT LISTED SHALL BE 
CONSIDERED CLASS 5. 

2. DO NOT ADD FOR LOW MILES, OR "SOFT 
ADDS." _ 



WESTLAKE WILL NOT ADVANCE FOR THE 
FOLLOWING KELLEY ADDS: PREMIUM SOUND, 
PREMIUM WHEELS, ABS, DUAL AIR BAGS, 
INTEGRATED PHONE, UPGRADED TOPS, BUMPER, 
OR PAINT, WIDE/OVERSIZE TIRES, TOW 
PACKAGE, GRILLE GUARD, WINCH, 
COMMERCIAL TRUCK ADDS & ANY ITEM NOT IN 
WORKING ORDER. 



3. ANY VARIANCE FOUND BETWEEN ACTUAL & 
REPRESENTED VALUE OF THE VEHICLE MAY 
RESULT IN DEALER REPURCHASE. 



WESTLAKE FINANCIAL SERVICES 

Credit Bureau Input Guidelines 



TRW no TRW no TRW no 

Abbreviation (+) (-) effect Abbreviation (+) (-) effect Abbreviation (+) (-) effect 
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CLOSED-30 6+ TIMES 
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WEST V\KE FINANCIAL SERVICES 

Credit Bureau Input Guidelines 

NOTE: ANY ACCOUNT WITH A PAST DUE AMOUNT IS A DEROG 



Account 


Last Entry in 


Highest Deliq # in 






No 


Status 


Account History 


Account History 


Meaning 


(+) (-) Effect 


(No #) 


No History 


No History 


No Status 
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0 


No History 


No History 


New Acct 






• 


1 


No History 


No History 


Curr or Paid AA 
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# 
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Non- Prof Fin Counsel 
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Financial Statement 
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Secured Loan 








COLL 






Collection Account 




• 




COLL 




+ PAID 


Paid Collection Acct 






• 



HOIV TO SCORE CREDIT (IN A NUTSHELL-ASK REP FOR SPECIFIC QUESTIONS) 

1. Paid or Current credit never more than 30 days late is 1 good. 

2. Paid or Current credit that was 60 or more days late is 1 good and 1 derog. 

3. Any delinquent account or unpaid charged off account is 1 derog. 

4. Collection accounts are derog; paid Collection accounts do not count as anything. 

5. Tax Liens and Judgments are derog; if satisfied they do not count. 

6. Student Loans and Child Support do not count, BUT we do count the debt from child support. 

7. Transferred, Sold, or Refinanced lines of credit do not count. 

8. Multiple lines of credit from the same creditor normally count as 1 line of credit. cbi 6-99 



Westlake 



[FINANCIAL SERVICES! 



PREFERRED PROGRAM GUIDELINES 

Effective Date: 11-15-2000 



INSTRUCTIONS: 



1 . Score credit as normal with the standard program guidelines with the following exceptions: 

a. Paid Charge Off. Count as NO EFFECT. 

b. Settled Count as NO EFFECT. 

c. Medical Collections. Count as Unpaid Collection Accounts (derog). 

2. We will not ask you for # Derog Credit Items. Instead we will ask you about UNPAID Charge Offs and 
Collection Accounts (see guidelines below). Therefore, any account that we normally consider to be a +/- is a + 
only in this program Exceptions to this are Paid Charge Off and Settled. These accounts will be considered as 
NO EFFECT. Also for this program, we WILL count Medical Collections as Unpaid Collection Accounts. 

3. Input Yrs on Credit Bureau, # Good, and $ Hi Good as normal. The questions # Unpaid Coll Accts, # Unpaid 
Chg Offs, and $ Hi Unpaid Chg/Coll are new. Score those using the following guidelines: 

jhUnpaid Coll Accts / # Unpaid Charge Offs: Do not count unpaid accounts charged off during bankruptcy. If the 
HK was not completed, then you count them What we are looking for are the bad accounts for which the customer is 
liable. 

|>f Hi Unpaid Chg Off/Coll: This is the high $ derog on an account that is a charge off or collectioa What we are 
looking for is the highest dollar amount of a Collection Account or Charge Off for which the customer is still liable, 
you would not count BK accounts either for this question. 

WHER POLICIES: 

No Prior Repos/Auto Losses, INCLUDING with/before BK 
No Multiple Bankruptcies or Multiple BK Filings 
No open (active) delinquencies 
No TMU, Salvage, Exempt, or Other Branded Titles 
Max of 1 unreported Paid Auto and 1 unreported other loan 
NO Rent-To-Own accounts or Pre-Paid phone 
Vehicles Class 1-4 only 

Service Contracts must cover at least 1/2 the term of the contract 
COUNT MEDICAL COLLECTIONS AS UNPAID COLLECTION ACCOUNTS! 
PAID CHARGEOFFS AND SETTLED ACCOUNTS DO NOT COUNT AS CREDIT! 
(They still count for Time on Bureau) 



ru 



STIPS: 



HINTS!!! 



Complete application; incomplete apps will be returned 

Minimum 4 different references, POI, copy of DL from state of residence (MUST have) 

Must have copy of phone/util bill if input "Y u in program for Ph/Util Bill 

NO 30 day insurance binders or polices or dealer-procured/sponsored insurance 

UIC 6 month policy OK 



When the program says "SORRY " it will give you a reason. Follow the directions. 

You can and should manipulate down, price, and term to make your deal. 

Must have at least 2 years Credit History (or a solid Cosignor), 4 years helps a lot. 

The program will accept very high debt ratios if the debt is from Rent or Mortgage. 

Equity is key! Don't expect to max out the amount financed every time. If the program won't give you 

the approval when you max it out, you are going to have to adjust the down/price to see how far it is 

willing to go. 

A— 6 



WESIlAKE financial SERVICES 

PROGRAM INSTRUCTIONS 



Credit Application - Must contain landlord name and phone number, 5 yrs job and residence history, 
bank account info, and relative reference (Mother, Father, Sister, Brother). Failure to provide the 
above will result in a TD. Applications found to be falsified will be a TD. It is the dealership's 
responsibility to verify the information on the credit application prior to submission for funding. 

Contract - Contracts are to be written at the rate indicated by the Buy Program. CA ONLY: Simple 
Interest contracts to be written at 23.9% APR. Must sign in designated "assignment" area on front 
and back of contract, or it will be returned immediately. 

Phone Bill - Bill must go to customer's residence. Westlake cannot purchase a deal if the customer's 
phone bill goes to another address. Deals will not be purchased without documentation showing the 
address the number goes to. ALL PAGES OF PHONE BILL ARE REQUIRED. In areas that the 
local phone company doesn't put the address on the phone bill SOLID PROOF of residence for 
th% person named on the phone bill besides a phone bill is required. If the phone is prepaid or 
fnSrii a non-major company, then must be able to prove that the phone has been in service at least 3 
mjkhs. If no land-line phone, then a complete cell phone bill in customer's name is ok if it goes to 
prjsical address and customer has a utility bill or checking account statement in name going to 
ciptomer's physical address. Pre-paid cell is unacceptable. Phone bills past due more than the 
Westlake payment or that are actually disconnect notices are the same as not having a phone. 

Open Auto Loans - 1 pre-existing open auto loan allowed if married and both sign. Cox may have 
atfppen auto. No open auto if single buyer. 

pick Payments - Up to 25% of the total down, up to $500. Last pick due no later than 14 days prior 
tqjjst payment. 

Mtitarv - Rank E3+ ONLY. Term of Contract cannot exceed six (6) months beyond separation date 
lisled on LES. Deal must arrive with completed MAC allotment and completed burnout or it will be 
returned immediately. 

Credit Counseling (CCC) - Westlake will not purchase contracts with buyers who are in Credit 
Counseling (CCC) or have accounts presently being managed by a Credit Counseling service. 

Present or Prior Westlake Accounts - Westlake will allow a second account on a couple who have 
made at least 6 payments on an account that is paid up-to-date. Any Westlake deficiency must be 
paid in full before considering a new Westlake deal. 

Non-Reporting Good Accounts - Max of one auto loan and one other account. NO rental, medical, 
or dental. 

Derog on Bureau-Now Paid - Chargeoffs and coll accts must have been paid at least 30 days prior 
to dealer running bureau. Delinquent accounts that are now current must have been paid up-to-date 
prior to dealer running bureau. 

Medical Collection Accounts - Do not count Collection Accounts which are medical in nature. In 
order to be considered a Medical Collection, the account must reflect on the bureau a Doctor, 
Hospital, Radiologist, Emergency Room, X-Ray Facility/Tech, or other entity that is clearly Medical or 
Dental. The definition of "clearly" is left solely to the discretion of the Westlake buyer, so use common 
sense in applying this rule. 

Additional Policies B8 10 00 doc 
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WESTLAKE FINANCIAL SERVICES 
PROGRAM INSTRUCTIONS 



2 



Utility Bills - A utility is tap water, gas, electric, cable, satellite connection, garbage, or sewer. It is 
NOT jugs of water or newspaper. 

Dealer Employees - Any deal on any employee of any dealer must be pre-approved by Westlake 
prior to submission. 

TMU/Salvaqe Vehicles - TMU is acceptable with a Statement of Facts from the customer 
acknowledging TMU. For the book and program input, add 100,000 miles to the odometer. NO 
SALVAGE TITLES, LEMON-LAW TITLES, POLICE/TAXI/FIRE/FLOOD TITLES, OR ANY OTHER 
BRANDED TITLES. ODOMETER FORMS MUST ACCOMPANY DEAL. NO PURCHASES WILL 
BE MADE WITH MILEAGE REPRESENTED AS "EXEMPT". 

Older Units - Vehicles 10 years old or more are assumed to have over 100,000 miles on them, and 
should be booked out that way. A 1988 car with a 5 digit odometer that says 48,000 miles must 
bjpked out as 148,000 miles. A 1988 car with a 6 digit odometer showing less than 100,000 miles 
nl)st be booked out as 100,000 miles. No exceptions. 

How we count Time Residence - Life begins at 18. If the credit bureau shows a different address 
with updates, then allow no more than 1 month after the earlier update. Use the latest different 
address for updates. If the driver's license has a different address, allow no more than 1 month after 
tie date of the license. Use the lower of this number or what the application says. These policies 
hrfd even if the application shows a longer time at residence, or the credit bureau shows the current 
ajdress before the different address. No documentation will ever change this policy. 

jjoksheet - KELLEY WHOLESALE: DO NOT ADD FOR LOW MILEAGE WHEN BOOKING THE 
VEHICLE. Do not add for the following options: Premium Sound, Premium Wheels, ABS, Dual Air 
Bags, Integrated Phone, Imitation/PaddedA/inyl tops, Custom Bumper, 2 tone paint, Wide/Oversize 
tires, tow package, Winch, Snow Plow, commercial truck adds and any item not in working order. Any 
variance discovered between actual & represented valuation of the vehicle by the dealership may 
result in dealer repurchase. 

Rent - If the customer lives with relatives or pays no rent, use the greater of 10% of Gross Income or 
$250 for rent. 

Open Delinquencies - Westlake will not purchase a deal if the buyer has more than 2 open 
delinquencies on Credit Bureau. An open (active) delinquency is defined as any account counted as 
derog only that is not a chargeoff, coll acct, or BK liquidation. An account that is closed but is also 
currently delinquent and not a chargeoff is an open delinquency. If Home Loan is currently delinquent 
DEAL WILL BE AN AUTOMATIC DECLINE . 

Our Philosophy - Westlake believes in a "Win-Win" approach for both the dealer and Westlake. We 
believe that our program allows the dealer more flexibility in structuring a deal than any other Finance 
Company program. We put a great deal of trust in our dealers when we give them access to our buy 
model, and we expect them to make deals that make sense. While we have sometimes accepted soft 
documentation on strong deals, we expect strong documentation on weak deals. Therefore, while we 
will make every effort to fund all deals that are approved by the Buy Program, it is ultimately up to you, 
our dealer, to ensure that the deals you send in have integrity and are fair for all parties concerned. 

Additional Policies BB 10 UU doc 
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ip WUHakePuy Prey am v 3.0.0. 1 ONew Customer 



ft thw.^.'Q Qpm-^y S»wN 



CMS 



CEAL STRUCTURE 



. VEHICLE mFORMATiOH. 



Price: 
DOC: 
Smog: 

Sales Tax: &2S% 



Total: 

Trade Allowance: 
Trade Payoff; 
Cash Down: 
Insurance: V 

Amount financed: 
Finance Choree: 
Loan Oate: 
OatetoletPmti 3D 
Payments: 31 
MAX OK TO f IN: 



Blue Book: 
Mileerje: 



t Sue Cont Cost: 



1992 I #Ysar« on Credit Bureau: 
S49SMQ ; ft Good Credit tteme: 
117545 ; $ High Good Credit 
i pg irocroo Credit rtcm* 
$4,6004)6 s StBrjhOeron Credit 
$2)590x0 I *of Rcpo/Autoloas: 
$0X0 ; Preukws Bankruptcy? 
■ : Customer Own* Home? 
Residence Stability: 



, ..... CMDfT llffORMATIOH 

4,7 *YrconJot>: 1.7 

2 ftosiMartWlRCorrto: ii.eoo.0t) 
$5804)0 Rent/Mortgage: $3so.oo 

3 Family Support Debt io.oo 
$900410 Other Monthly Ocbb $75.00 

0 PhonCUtliXhktnginNamc? V 
II SpousefartnerCo-X? N 



3 



Cust Fact on 

Dealer Gross: 

NET CHECK TO DEALER; 



CALCULATION RESULTS ; . , ^; v ^ 

1438 Wsstlake Discount: 
$1,415.00 Acquisition Fee: 
$4,917.70 THE APR IS: 



. OCAL APPROVAL 



$8754)0 j Structure OK: 
$ 2137% 1 Amoulrt R nanc8dOK: 
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COMPUTER PROGRAM 
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' <%Template=California%> <%Version=Jay Test%> 

1 Template=California 

' California Expression Template 

' Modification Date : Nov 16, 2000 

• Reason: converted from Delphi to VB Script 
' Modification Date : Nov 17, 2000 

1 Reason: Added code for COM, modified for Stand Alone BP 

• Modification Date : Nov 22, 2000 

' Reason: Added Total of Payments calculation 
' Modification Date : Jan 25, 2001 

■ Reason: Added insuarnce cap beyond $10,000.00 
' Modification Date : Feb 13, 2001 

1 Reason: Repaired wizard re o/a, etc 

' Modification Date, : Feb 26, 2 0 01 - John Sun 

• Reason: Added error handling - when error occurs, system need to 
continue and trap 

1 all the error messages. 

' Modification Date : Mar 26, 2 001 - Mike Duke 

• Reason: Repaired Ins Lookup Table to account for all Carryback 
possibilities . 

» Modification Date : Apr 03, 2001 

' Reason: Made minimum Total Income = $1.00 

■ Modification Date : Apr 09, 2001 

' Reason: Move Big Mile Hit expressions in proper order for proper 
recalc when opening saved deal 
' Modification Date : Apr 30, 2001 
1 Reason: Fix error in Job Lookup Table 
' Modification Date : May 16, 2001 

• Reason: Fix error in CF Scaler Lookup 
' Modification Date : May 23, 2001 

• Reason: Allow Class 5 for reserve deals 

• Added for Stand Alone 

BP 

1 On Error Resume Next 

Set BPMod = CreateObject ( " BPf unct ionsModule . BPFunctions " ) 



' [CONSTANTS] 

' System Error 
DIM SystemError 
SystemError = " " 

Acqf ee=100 

• Note DealerGross , NetCheckToDealer 
TooSmallPmt =14 0 

'Note Debt Adjustment Model, Final Reserve, Error Section 
MinDiscount = 0 . 10 

"Note MinDerog, MinBK, MinFact, FinalReserve 
CurrYear = 2 0 00 

'Note MaxCB Model, CarAge variable 



* •* * 

1 CarYear = vYear 

* * * 

if (vYear < 5) then 

CarYear = vYear + 20 0 0 
else if (vYear < 100) then 
CarYear = vYear + 19 0 0 
else 

CarYear = vYear 
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end. if 
end if 
•Note 

' CarYear is used in MaxCB , CarAge var , Error Section 

* He 



' CHANGE 






hint =" 






hintl= " 






hint 2= " 






hint3=" 






hint 4= " 


" 




hint5= " 


" 




hint 6= " 






hint7=" 






hint 8= " 


n 




hint9=" 


ii 




hint 1.0 = 


» 


it 


hint 11= 


■I 


ti 


hint 12= 


N 


» 


hint 13 = 


ii 


ii 


hint 14= 


ii 


if 


hintl5= 


ii 


ii 


hintl6= 


II 


fi 


hintl7= 


ii 




hint 18= 






hint 19 = 


ii 


ii 


hint 20= 


ri 


it 


hint 21= 


ii 


li 


hint 22= 


ii 


ii 


hint23 = 


n 


ii 


hint24= 


tt 


II 


hint25= 


ii 


ii 



i it He He He He He He He He He He He He He He He ^^^^^^^^^T^^^^^^^^^^^^Vr^^^^^Vf^^^^^^^^^^^Vf^^^^^fc^^r 

* He He 

' Deal Structure Calculation Area 
'Calculate TaxAmount And SubTotal 

t HeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeH^ 
He He He 

' LOOK AT THIS TAXRATE AS COMPARED TO DUKES FIDE 

' Input Parameters for this block are basically input variables 
' TaxRate, Price, Smog, Doc, SmogCert , Tax, LicFee, Warr, Down, 
TradeAl lowance 
1 Trade Payoff 

Tax = (TaxRate/ 10 0 ) * (Price + Smog + Doc) 

Sub Tot = cdbl ( Price + Doc + Smog + SmogCert + Tax + LicFee + Warr) 
TotalDown = Down + TradeAl lowance - TradePayof f 
TotalLessIns = SubTot - TotalDown 

'Note these are all variables not models 
1 Tax used in SubTot 

'SubTot used in TotalLessIns variable, CB variable 

'TotalDown used in TotalLessIns variable, CB variable, BKBonus , 
' FTBBonus & SmallFTBBonus , and MINBK 

'TotalLessIns used in Ins variable, EquityTest variable, HICBHIT, 
OptimalCB Credit, FineTune , FinalCus tomerFac tor , 

CFPHBillScaler in the 

Final CF calculation, DebtScaler, SpreadNum, MinFact, 

FinalReserve , Error section 

He He He 
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* * * 



•Calculate Insurance Amount If needed 



•*• * * 



'Input Parameters for this block are basically input variables 
' InsFlag, TotalLessIns 

if (InsFlag = 1) then 

if (TotalLessIns <= 10000) then 

Ins = Lookuplns (TotalLessIns, 2 ) 
else 

Ins = 0 . 1088*TotalLessIns+95 

end if 
else 

Ins = 0.0 0 
end i f 

'Note 

1 INS is used in many places 

CB variable, MaxCB , EquityTest variable, TotalDebt, FTBBonus 
& Small FTBBonus , 

HICBHIT, ExcessTerm Debt, Xterm, SpreadNum, CheckToDealer, 

Error Section 
* * * 



* * * 

' This is the amount Financed 

* * * 

'Input Parameters for this block are basically input variables 
' SubTot, TotalDown, Ins 

CB = (SubTot - TotalDown) + Ins 

'Note this variable is used in many places 

Payment, IntCost Var , Add-On Var, SigDown , Debt Ad j us tment , 
TotalDebt, 

FTBBonus, Small FTBBonus , HICBHit, Opt imalCBHi t , ExcessTerm, 
SpreadNum, 

RealOA var, CheckToDealer var, AmtOk var, Error Sectxon 

* * * 



* -*- •* 

'Calculate APR Lookup Interest Rate 

* * * 

' Input Parameters for this block are basically input variables 
1 Term 

Interest = LookupApr ( Term ) 
APR = Interest 

'Note Interest is used in many places 
' APR, Debt Ad jus tment , TotalDebt 

* * * 



Page : 3 



B-4 



File: Z : \BP3 . ll\Data\Calif ornia\exp . bpD 1/3 /2 0 02 , 4 : 51 : 57PM 



,******************************************************************** 
* -* * 

' Calculate Payment 



• ******* 

* * * 



************************************************************* 



Input Parameters for this block are basically input variables 
' CB, Term, DaysToPay 

PaymentA = BPMod . bp_AddOnPMT ( CB, Term, 0.12, DaysToPay ) 
Payment = BPMod . bp_Trunc ( PaymentA, 2 ) 

'Note payment used in a lot of places 

IntCost var, Add-On var , To talOf Payment s , DebtAdjustment , 

TotalDebt, _ -w- -i • 4_ 

FTBBonus, Opt imalCBCredi t , Excess Term, Payment Probability, 

PPAdjust , 

SpreadNum, FinalReserve 
. ******************************************************************** 



J^. ,******************************************************************** 
* * * 

■ ADDON is the total dollar amount of Interest 
ill ,******************************************************************** 

p * * * 

Tl 'Input Parameters for this block are basically input variables 

W • Payment, Term, CB , Price, Cost, Reserve, Warr, WarCost, AcqFee 

p| 'These are all output variables calculated 

^ IntCost = ( Payment * Term ) - CB 
01 AddOn = Payment * Term - CB 

To t alo f Payment s= Payment * Term 
iS FrGross = Price - Cost 

Q Deal erGross= PRICE -COST-RESERVE+WARR-WARCOST-AcqFee 
r 51 ' Note 

p - IntCost, AddOn, TotalOf Payments , FrGross are used basically 

outputs 

• DealerGross is used in Error Section 

P ,******************************************************************** 

^T!: * * * 

Fir, 

i******************************************************************** 

~k * 

Max Amount Financed Calculation Area = "MaxCB" 



************************ 



******************************************** 



* * * 

,******************************************************************** 

* * * 

■Calculate Hit For very high miles = BigMileHit used to calculate 
MAXCB 

.^^^^vt*^^^*********************************************************** 

* * * 

•Input Parameters for this block are basically input variables 
1 vClass, Miles 

BigMilesStart = 185000 

BigMilesRange_l = 50 00 0 

BigMilesRange_2 = 50 00 0 

BigMilesRange_3 = 5 0 000 

HitBigMiles_l = 0.15 

HitBigMiles_2 = 0.15 

HitBigMiles_3 = 0.15 

LotsOfMiles_l = BigMilesStart - ( vClass * 10000 ) 

LotsOfMiles_2 = Lot sOf Miles_l + BigMiles Range_l 
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LotsofMiles_3 = LotsOf Miles_2 + BigMilesRange„2 

HitRate 1 = ( HitBigMiles_l + ( vClass / 100 ) ) / BigMilesRange_l 

HitRatel2 = ( HitBigMiles^2 + ( vClass / 100 ) ) / BigMUesRange_2 

HitRate_3 = ( HitBigMiles_3 + ( vClass / 100 ) ) / BigMilesRange_3 

BigMileDelta_2 = BPMod . top MIN ( Miles - LotsOf Miles_2 , BigMilesRange_2 

) * HitRate_2 . . . 

BigMileDelta_3 = BPMod . bp_MIN ( Miles - LotsOf Mile s_3 , BigMilesRange_3 

) * HitRate_3 , . n „ - x 

BigMileHit_l = BPMod . bp_MIN ( Miles - LotsOf Miles_l , BigMilesRange.l ) 

* HitRate_l , . 

BigMileHit_2 = BPMod . bp_IFG ( Miles, LotsOf Miles_2 , BigMileHit_l + 
BigMileDelta_2, BigMileHit_l ) , , . 

BigMileHit_3 = BPMod.bp_IFG{ Miles, LotsOf Mi les_3 , BigMileHit_2 + 
BigMileDelta_3, BigMileHit_2 ) 

BigMileHit = BPMod . bp_IFG ( Miles, LotsOf Miles_l , BigMileHit_3 , 0 ) 



i * •*■ * 
* * * 



•Note 

BigMileHit is the output used in calculating MaxCB 
***************************************************************** 



]p t ******************************************************************** 

pe * * * 

if! 'Calculate Regular Hi Mile Hit = " HiMileHi t " 

yj ,******************************************************************** 
* * * 

' Input Parameters for this block are basically input variables 
' vClass, Miles, Book 

mi 

MCBHi Miles = 140000 
:i MCBHiMilesRange = 1000 0 

o 

f7 OverMiles = MCBHiMi les - MCBHiMilesRange 

MaxHiMileHit - LookupTermTable ( vClass, 10 ) 
fj MCBHitRate = MaxHiMileHit / MCBHiMilesRange 

% HiMileHitExpl = BPMod . bp MIN ( ( Miles - OverMiles ), MCBHiMilesRange 

^ ) * MCBHitRate * Book 

p HiMileHit = BPMod . bp_IFG ( Miles , MCBHiMiles - 
MCBHiMilesRange, HiMileHitExpl, 0 ) 



'Note 

1 HiMileHit is the output variable used in calculating MaxCB 

,******************************************************************** 



******************************************* 



************************* 



•Calculate WarrAllowance 

'Note I thought that this variable could stand by itself 

,******************************************************************** 



* * * 



•Input Parameters for this block are basically input variables 

• Warr 

MaxWarrCB = 2 50 

WarrAllowance = BPMod . bp_MIN ( MaxWarrCB, Warr ) 

■Note WarrAllowance is used in MaxCB, SigDown, TotalDebt, Excess 
Term, 

SpreadJSTum, MinFact, FinalReserve , Error Section 
I******************************************************************** 

* * * 



t ******************************************************************** 

* * * 

• Calculate MaxCB 
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• ****** 



************************************************************** 



* * * 

•Input Parameters for this block are basically input variables 

• vClass, Book, HiMileHit, WarrAllowance , Ins, BigMileHit, CurrYear, 
CarYear 

BMHiLimit = 6000 
BMLowLimit = 2 0 00 
MCBMaxIns = 10 0 0 

BMRange = BMHiLimit - BMLowLimit 

CarClassAdv = LookupTermTable { vClass, 8 ) * Book 
MaxBookAdv = LookupTermTable ( vClass, 9 ) + Book 

PossibleAdv = CarClassAdv - HiMileHit + WarrAllowance + BPMod.bp_MIN 
( Ins, MCBMaxIns ) ^ 

OKAdv = BPMod . bp MIN ( PossibleAdv, ( MaxBookAdv + Ins + WarrAllowance 

BigMileSmackScaler = BPMod . bp„MAX ( BPMod . bp_MIN ( ( OKAdv - Ins - 
BMLowLimit ) / BMRange, 1 ),0 ) . . - n „ 

Big-Mi leSmack = ( OKAdv - Ins ) * BigMileHit * BigMileSmackScaler 
MaxAl tCB = 15 0 0 + Ins - 10 0 * ( CurrYear - BPMod . bp__M IN ( CurrYear , 
CarYear ) - 1 0 ) v n _ x 

MaxCB = BPMod . bp_MAX ( ( OKAdv - BigMileSmack ), MaxAltCB ) 



jM* ' No t e 

• MaxCB is used in EquityTest var, SigDown, FineTune, Xterrn, 



RealOA, 

' Error Section 

,******************************************************************** 
y t***^**************************************************************** 

jS^i: * * * 

i End MaxCB 

%l ,******************************************************************** 

a«?5s * * * 



,******************************************************************** 

* * * 

"Assorted One Line Variables for future use 
p ,******************************************************************** 

* * * 

W -Input Parameters for this block are basically input variables 

p ■ Down, TradeAllowance, TradePayoff, TradeScaler, CurrYear, Caryear, 

S ' TotalLessIns , MaxCB, Ins 

iU • These again are some variable which are later used. 
TradeScaler=0 . 7 0 

RealDown = Down + ( TradeAllowance - TradePayoff ) * TradeScaler 
Car Age = CurrYear - CarYear 

EquityTest = TotalLessIns / ( MaxCB - Ins ) 
'Note 

Real Down used in SigDown, Opt imalCBCredi t , Error Section 
,******************************************************************** 



,******************************************************************** 

* * * 

•Calculate Good/Derog including Spouse 

.******************************************************************** 

* * * 

'Input Parameters for this block are basically input variables 
1 Spouse, Good, SpGood, Derog, SpDerog, HiGood, SpHiGood, HiDerog, 
SpHiDerog 

TotalGood = BPMod . bp___IFB ( Spouse, ( Good + SpGood ) / 2, Good ) 
TotalDerog = BPMod . bp_IFB ( Spouse, ( Derog + SpDerog ) / 2, Derog ) 
RealHiGood = BPMod . bp__IFB ( Spouse, BPMod . bp_MAX { HiGood, SpHiGood ), 
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RealHiDerog = BPMod . bp IFB ( Spouse, BPMod . bp_MAX ( HiDerog, SpHiDerog 

) , HiDerog ) 

■ N ° te TotalGood used in RealINC, GoodScaler/BadScaler, BKBonus , 

HTfBHIT 

FineTune, FinalCFCalculation, DEBTScaler, MinBK 
TotalDerog used in RealINC, GoodScaler/BadScaler, HiCBHit , 

FineTune, . _ 

FinalCFCalculation, Debt Scaler: 
RealHiGood used in GoodScaler/BadScaler, BKBonus, HiCBHit , 

FinalCFCalculation, MinBK 
RealHiDerog used in GoodScaler/BadScaler, 
FTBBonus / Small FTBBonus , 

HiCBHit, FineTune, FinalCF, DebtScaler, MmDerog. 
,******************************************************^^ 

* * * 

,*******************************************************^^ 

* * * 

'Calculate TotalINC , 
'Note I separated because I thought it could be calculate by itself 

^does have to be included in Realinc as it used in many places 

, *************************** ************************************* 

* * * 

•Input Parameters for this block are basically input variables 

* Spouse, Inc, Spine, Support 

Total Inc=BPMod . bp_MAX { BPMod . bp_IFB ( Spouse , Inc+Splnc - Support , 
Inc -Support) , 1) 

' Note 

1 Totallnc in Realinc, RealJob 

,******************************************************************** 



,***********************************************************^ 

* * * 

•Calculate Income including Spouse = "RealINC" 

, *ti$*** 5?*t*S** **i*************** ************************ *********** 

* * * 

'Input Parameters for this block are basically input variables 
1 TotalGood, TotalDerog, YrsTRW , Repos , Inc, Support, Spine, 
Totallnc, Spouse 

•Totallnc = BPMod. bp__IFB ( Spouse, (Inc + Spine - Support), (Inc - 
Support) ) 

' TotalInc=BPMod . bp_MAX ( BPMod . bp_IFB (Spouse, Inc + Spine -Support , 
Inc -Support) ,1) 

ReallncCondl = BPMod . bp_IFG ( TotalGood, 1.5, 1, 0 ) 
RealIncCond2 = BPMod . bp_IFL ( TotalDerog, TotalGood, 1,0 ) 

RealIncCond3 = BPMod . bp IFGE ( YrsTRW, 2, 1,0 ) 

RealIncCond4 = BPMod . bp IFL.E ( TotalDerog, 2, 1, 0 ) 

ReallncCondS = BPMod . bp_IFE ( Repos, 0, 1,0 ) 

ReallncCond = ReallncCondl * RealIncCond2 * RealIncCond3 
RealIncCond4 * ReallncCondS 

Minlnc = BPMod . bp_MAX { Inc - Support , Spine -Support ) 
IncHit = BPMod. bp_MAX ( 1 - ( Totallnc / 10000 ), 0.75 ) 

Real Inc Exp 2 = BPMod . bp MAX { BPMod . bp MAX ( Totallnc * IncHit, Totallnc 

- 50 0 ) , Minlnc ) 

ReallncExpl = BPMod . bp_IFB ( ReallncCond, Totallnc, RealIncExp2 ) 

ReallncExp = BPMod . bp IFB ( Spouse, ReallncExpl, Totallnc ) 

Realinc = BPMod . bp„Max ( ReallncExp, 1 ) 
■Two lines above are there in the new dukes file 
•Realinc = BPMod . bp_IFB ( Spouse, ReallncExpl, Totallnc ) 

•Note 

' Realinc is used in CountRent /CrapRat 10 , 
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P 5 E 



•fT; 



FTBBonus/ SmallFTBBonus , , 

TotalDebt, FinalCFCalculation, DebtScaler, 
DebtProblem, MinBK , Error Section 



,************************************** 
* * * 



****************************** 



,******************************************************************** 

* * * 

* Input Parameters for this block are basically input variables 
■ coxGood, Good, CoxDerog, CoxRepo, Coxlnc, CoxHome, CoxParent, 

YrsTRW 
1 Derog 

GoodCreditExp = BPMod.bp_IFL( CoxGood, Good, - 2,0 ) 

GoodCreditPoints = BPMod . bp IFB ( BPMod . bp_IFG ( CoxGood , Good, 1 , 0 ) 

BPMod . bp IFGE ( CoxGood, 4, 1, 0 ), 2, GoodCreditExp ) 

DerogExp = BPMod . bp IFB ( BPMod . bp_IFG ( CoxDerog , 3 , 1 , 0 ) + 

BPMod. bp_IFG ( CoxDerog , CoxGood, 1 , 0 ), - 1, 0 ) 

DerogCreditPoints = BPMod . bp__IFB ( BPMod . bp.IFLE ( CoxDerog , CoxGood 

0.5, 1,0 ) * BPMod . bp IFLE ( CoxDerog , 3 , 1 , 0 ) * BPMod . bp — IFGE ( 

CoxGood, 1, 1, 0 ), 2, DerogExp ) 

RepoPoints = BPMod . bp IFE ( CoxRepo, 0,1, - 10 * CoxRepo ) 

IncAccounts = BPMod . bp_MAX ( (CoxGood + CoxDerog), 1 ) 

IncDivAcct = BPMod. bp__IFE< ( CoxGood + CoxDerog ), 0, 0, (Coxlnc / 

IncomePointLiseExp - BPMod . bp_IFB ( BPMod . bp — IFGE ( IncDivAcct, 2 00 , 1,0 
) + BPMod . bp IFGE ( Coxlnc, 4000, 1, 0 ), 3, ( ( IncDivAcct - 100 ) / 100 

IncomePoints = BPMod . bp IFLE ( IncDivAcct, 100 , 0, IncomePointsElseExp ) 

O CoxOwnHome Points = BPMod . bp_IFB ( CoxHome , 3 , 0 ) 

C CoxParentOfBuyerPoint = BPMod . bp_IFB ( CoxParent, 5, - 1 ) 

N? BuyerLowOnBureauPointElseExp2 = BPMod . bp — IFLE ( YrsTRW, 3,0, - 1 ) 

0 BuyerLowOnBureauPointElseExp = BPMod . bp — IFLE ( YrsTRW, 2,1, 

,fs BuyerLowOnBureauPointElseExp 2 ) 

'15? BuyerLowOnBureauPoint = BPMod . bp IFLE ( 

0 YrsTRW, 1,3, BuyerLowOnBureauPointElseExp ) 

«"f CoxPoints = GoodCreditPoints + DerogCreditPoints + RepoPoints + 
sw IncomePoints + CoxOwnHome Points + CoxParentOfBuyerPoint + 
BuyerLowOnBureauPoint 

GoodCoxExpl = BPMod. bp_IFOR2 ( BPMod . bp — IFAND2 ( BPMod . bp_IFGE ( 
Coxlnc, 1500, 1, 0 ), BPMod . bp_IFGE ( IncDivAcct , 3 00, 1, 0 ), 1, 0 ), 
BPMod . bp__IFGE ( Coxlnc , 2 0 0 0 , 1 , 0 ), 1, 0 ) 
GoodCoxExp2 = BPMod . bp_IFE ( CoxRepo, 0, 1,0 ) 
GoodCoxExp3 = BPMod . bp_IFL ( CoxDerog, 3, 1, 0 ) 

GoodCoxExp4 = BPMod. bp_IFOR2 ( BPMod. bp — IFAND2 ( BPMod . bp_IFGE ( 
CoxGood, 5, 1, 0 ), BPMod. bp_IFGE ( CoxGood, 5 * CoxDerog, 1,0 ),1,0 
) , BPMod . bp__IFAND2 ( BPMod . fop_IFB ( CoxHome ,1,0 ) , BPMod . bp — IFLE ( 
CoxDerog, 1,1,0),1,0),1,0) 

■ GoodCoxInc = BPMod . bp_IFB ( GoodCoxCond, BPMod . bp_MIN ( ( Coxlnc - 
1500 ) / 1000, 1 ) , 0 ) 

' Mike Duke's new program has it correct. 

GoodCoxCond = GoodCoxExpl * GoodCoxExp2 * GoodCoxExp3 * GoodCoxExp4 

GoodCoxInc = BPMod . bp IFB ( GoodCoxCond, BPMod . bp — MIN ( ( Coxlnc - 1500 

) / 1000, 1 ) , 0 ) 

DerogNotZero = BPMod . bp__MAX ( CoxDerog, 1 ) 

GoodCoxCredit = BPMod . bp__IFB ( GoodCoxCond, BPMod . bp__IFB ( CoxDerog, ( 
CoxGood / DerogNotZero ) * 0 . 2 , CoxGood * 0 . 2 ) , 0 ) 

GoodCoxScaler = BPMod . bp IFB ( GoodCoxCond, BPMod . bp — MAX ( 

GoodCoxCredit * GoodCoxInc, 1 ) * GoodCoxInc, 0 ) 

BadBuyer = BPMod . bp IFB ( BPMod . bp IFG ( YrsTRW + Derog, 10, 1,0 ) 

BPMod . bp_IFG ( CoxPoint s , 0 , 1 , 0 ), 1, 0 ) 

BadBuyer Scaler = BPMod . bp_IFB ( BadBuyer , BPMod . bp_MAX ( 0,1 
YrsTrw + Derog - 10 ) ) , 1 ) 



0.1 * ( 
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CoxScaler = BadBuyerScaler * ( CoxPoints + GoodCoxScaler * CoxPoints 
) 

« Note 

« " " CoxScaler is used in BeginFinalCFCalculation, MINTRW 

, *********************** ********************************** *********** 



******************************************************* 



i ************* 

* * * 

Talrulate variable ResidTot for oust fact calc later 

, ** iS *i?*S *Y*^i***?* ********* **************************************** 

* * * 

' Input Parameters 
1 Resid 

Resid8YearBase - BPMod . top IFGE ( Resid, 8.1, BPMod.bp_MIN( Resid - 8, 

4)*0.00,0) , 

ResidSYearBase = BPMod. . bp_IFGE ( Resid, 5.1, BPMod . bp_MIN ( Resxd - 5, 

3 ) * 1 44 0 ) 

ResidlYearBase = BPMod . bp IFGE ( Resid, 1.1, BPMod . bp_MIN ( Resid - 1, 

4 ) * 1 27 0 ) 

ResidOYearBase = BPMod . bp IFGE ( Resid, 0.0, BPMod . bp_MIN ( Resid, 1 ) 

* 0.776, 0 ) 

ResidTot = Resid8YearBase + Res id5YearBase + ResidlYearBase + 
ResidOYearBase - 0.176 

'Mote 

ResidTot is used in FinalCFCalculation 
,******************************************************************** 



,******************************************************************** 

* * * 

•Calculate scaler for good/derog credit i tems= " goodscaler " , 

it £j 1 © ~%Z " 

'Note GoodScaler/BadScaler could be done separately — IMP 
,******************************************************************** 

* * * 

•Input Parameters _ _ n 

« TotalDerog, TotalGood, RealHiGood, RealHiDerog, YrsTRW, vClass, 

* BK, RealHiDerog 

GSJustForPlaying = 1.50 
GSHiGood = 0.2 5 
GS2ManyAcct = - 0.2 5 
GSGood2xDerog = 0.2 5 
GSDerog2xGood = - 0.2 5 
GSDerog5xGood = - 0.2 5 
GSNoDerog = 0.20 
GSFTB = 0.6 5 

GSGoodMoreThanDerog = 0.10 
GoodScalerBase = GSJustForPlaying 

GoodScaler9 = BPMod . bp IFE ( TotalDerog , 0 , GoodScalerBase + GSNoDerog, 

GoodScalerBase ) _ 
GoodScaler8 = BPMod . bp_IFG ( TotalGood, TotalDerog , GoodScaler9 + 
GSGoodMoreThanDerog, GoodScaler9 ) 

GoodScaler7 = BPMod . bp_IFB ( BPMod . top IFG ( RealHiGood, RealHiDerog 

10,1,0 ) * BPMod . bp IFG ( RealHiDerog , 1 0 0 , 1 , 0 ) * BPMod . bp_IFL ( 

RealHiDerog, 3000 , 1 , 0 ) , GoodScaler 8 + GSHiGood, GoodScaler 8 ) 

GoodScaler 6 = BPMod . bp IFB ( BPMod . bp IFG ( TotalGood, TotalDerog * 

2,1,0 ) * BPMod . bp IFGE ( TotalDerog, 1, 1, 0 ) , GoodScaler 7 + 

GSGood2xDerog, GoodScaler7 ) 

GoodScaler 5 = BPMod . bp IFGE ( TotalDerog, TotalGood * 2 , GoodScaler6 + 

GSDerog2xGood, GoodScaler6 ) 

GoodScaler4 = BPMod . bp IFGE ( TotalDerog , TotalGood * 5 , GoodScaler5 + 

GSDerog5xGood, GoodScalerS ) 
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GoodScaler3 = BPMod . top IFB ( BPMod . top IFE ( YrsTRW, 0,1,0 ) * 

BPMod.bp_IFNE{ vClass,5,l,0 ) , GoodScaler4 + GSFTB , GoodScaler4 ) 
GoodScaler2 = BPMod.bp_IFB ( BPMod . bp_IFLE ( YrsTrw,2,l,0 ) * 
BPMod.bp_IFGE( TotalGood + TotalDerog , 6 , 1 , 0 ) ,GoodScaler3 + 
GS2ManyAcct , GoodScaler3 ) 

GoodScalerl = BPMod . bp_IFL ( RealHiDerog, 1000 , GoodScaler2 + ( 1000 
RealHiDerog ) * 0.0005, GoodScaler2 ) 

GoodScalerO = BPMod.bp_IFL( YrsTRW, 1 , GoodScaler 1 + ( 1 - YrsTRW ) 
TotalGood. * - 0.5, GoodScalerl ) 

GoodScalerX = BPMod . top MIN ( GoodScalerO, 1.5 ) 

GoodScaler = BPMod . bp_MAX ( GoodScalerX, 0.2 5 ) 



BSSmallHD = - 0.20 
BSBK = - 0.2 0 
BadScalerBase = 1.05 
BSHiDerog = 0.2 0 

BadScalerS = BPMod . top_IFB ( BPMod . bp_IFGE ( RealHiDerog, 50 0 0, 1, 0 ) * 
BPMod bp_IFE ( BK, 0,1,0 ), BadScalerBase + BSHiDerog, BadScalerBase ) 
BadScaler4 = BPMod . bp_IFB ( BK, BadScalerS + BSBK, BadScaler5 ) 

BadScaler3 = BPMod . top IFLE ( RealHiDerog, 500, BadScaler4 + BSSmallHD, 

N 5 BadScaler4 ) 

ip*i: 1 CHANGE n , 

'S BadScaler2 = BPMod . top IFB ( BPMod . bp_IFB ( BK,1,0 ) * BPMod . top — IFL ( 

Q YrsTRW, 5,1,0 ), BadScaler3 + (5 - YrsTRW)* 0.3, BadScaler3 ) 
£ BadScalerl = BPMod . top_MAX ( BadScaler2 , 1.0 0 ) 
p BadScaler = BPMod . top MIN ( BadScalerl, 1.5 ) 

ffl 'Note 

*i 1 GoodScaler is -used in FinalCFCalculation 

Si • BadScaler is used in FinalCFCalculation 

m ,******************************************^ 

★ * * 

iPI * * * 

'*£ 'Calculate B KB onus to toe added to cust fact as part of finetune 

f^'i * * •* 

' Input Parameters 

!iy - v ciass, Total Down , Price, YrsTRW, TotalGood, RealHiGood , Spouse, 

■ Inc, SPInc, BK, minBK 

BKStrong = 0.5 
BKGood = 0.2 
BKInc = 0.2 
BKSpouse = 0.0 5 
BKHiGood = 0.2 

BKBonusCond = BPMod . top IFNE ( vClass,5,l,0 ) * BPMod . bp_IFGE ( 

TotalDown, Price * 0.20,1,0 ) * BPMod . top IFGE ( TotalDown , 1 5 0 0 , 1 , 0 ) * 

BPMod . top IFGE ( YrsTRW, 5, 1,0 ) * BPMod . top IFG ( TotalGood, 5 , 1 , 0 ) 

'this is according the dukes new expression 

BKBonusExp6 = BPMod . top IFGE ( RealHiGood , 1 0 0 0 0 , BKHiGood , 0 ) 

BKBonusExp5 = BPMod . top IFB ( Spouse , BKBonusExp6 + BKSpouse, 

BKBonusExp6 ) 

BKBonusExp4 = BPMod . top IFGE ( BPMod . top_IFB ( Spouse , Inc + Spine , Inc 

) ,3000, BKBonusExpB + BKInc , B KB onus Exp 5 ) 

BKBonusExp3 = BPMod . top IFGE ( TotalGood , 8 , BKBonusExp4 + BKGood , 

B KB onus Exp 4 ) 

BKBonusExp2 = BPMod . top IFE ( MinBK , MinDiscStrongBK , BKBonusExp3 + 

BKStrong, BKBonusExp3 ) 

BKBonusExpl = BPMod. top__IFB ( BKBonusCond, B KB onus Exp 2 , 0 ) 

B KB onus = BPMod. bp__MIN( BPMod . top_IFB ( BK, BKBonusExpl, 0 ), 1 ) 

'BKBonusCond = BPMod . top IFNE ( vClass , 5 , 1 , 0 ) * BPMod . top_IFGE ( 

TotalDown, Price * 0.20,1,0 ) * BPMod . bp_IFGE ( TotalDown , 1 5 0 0 , 1 , 0 ) * 
BPMod. top_IFGE ( YrsTRW, 5,1,0 ) * BPMod . top IFG ( To talGood , 5 , 1 , 0 ) 
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•Note 

BKBonus is used in FinalCFCalculation 
,********************************************* 
* * •* 



•Debt Model 1, Calculate count Rent and crapRatio 

i **************************************************** * * 

* * * 

' Input Parameters 

* Spouse, Debt, Reallnc , Rent, 

CRStart = 0.15 
CRCountAll = 0.20 

OKCrap = BPMod.bp_IFB( Spouse, 0.18, 0.13 ) 
Crap = DEBT / Reallnc 

* CHANGE 

RentMult = ( Crap - CRStart ) / ( CRCountAll - CRStart ) 
CountRentExp2 = RentMult * Rent 

CountRentExpl = BPMod . bp IFGE ( Crap , CRCountAl 1 , Rent , Count RentExp2 ) 

CountRent = BPMod . bp IFG ( Crap , CRStart , CountRentExpl , 0 ) 

CrapRatio = BPMod . bp_MAX ( Crap - OKCrap, 0 ) 

'Note 

■ CountRent is used in TotalDebt 

CrapRatio is used in PPAdjust 
t ************************************* 

* * * 



•Calculate SigDown . . ************ 

i ********************************************* 

* * * 

' Input Parameters 

* MaxCB , CB, WarrAllowance, Real Down, Price 

SDDollarDown = 15 0 0 
SDPer cent Down = 0.3 0 
SDScaler = 0.80 
SDEquityMult = 0.50 

Equity = BPMod . bp__MAX ( ( MaxCB - CB - WarrAllowance ), 0 ) 
DollarDownMult = BPMod , bp_MIN ( RealDown, SDDollarDown ) / 
SDDollarDown 

PercentDownMult = BPMod . bp_MIN ( RealDown / Price, SDPercentDown ) / 
SDPer c ent Down 

SigMult = BPMod . bp_MAX ( BPMod . bp_MAX ( DollarDownMult, PercentDownMult 
) , SDEciuityMult ) 

SigDown = BPMod . bp_MIN ( SigMult * Earuity * SDScaler, 0.5 * RealDown ) 

'Note SigDown is used in FTBBonus / SmallFTBBonus , HICBHIT, Fine Tune, 

Excess Term Determination, Down Payment Probability, ^MINFact ^ ^ 

* * * 



•Calculate DebtAdj us tment 

i **************************************************** 
* * * 

' Input Parameters 

1 Interest, CB , DaysToPay, TooSmallPmt, Term, Payment 
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DATerm = 3 0 
DAScaler = 0.90 

DAPmt = BPMod . bp_MAX ( BPMod . lop PMT ( Interest , DATerm, CB, DaysToPay ), 

TooSmallPmt ) , _ . x * 

DebtAdjustment = BPMod . bp_IFNE ( Term, DATerm, ( DAPmt - Payment ) 

DAScaler, 0 ) 
'Note 

DebtAdjustment is used m TotalDebt _ 
,********************************************************^^ 
* * * 

,******************************************************************** 



* * * 



************************* ****************** 

* * * 

' Input Parameters 

' CountRent, Reallnc, Debt, Ins, CB, Interest, Term, WarrAllowance , 
DaysToPay 

■ Payment, DebtAdjustment 
£ MinRent = 2 50 

MinDebt = BPMod . bp_MAX ( BPMod . bp_MAX ( CountRent, MinRent ), Reallnc * 

*P InsDebt 2 S BPMod . bp_IFB ( BPMod . bp_IFE ( Ins , 0 , 1 , 0 ) * BPMod . bp_IFG ( 

hi CB, 2500, 1,0 ), CB * 0.01, 0 ) 

S WarDebtExp = BPMod . bp_PMT ( Interest, Term, WarrAllowance, DaysToPay ) 

tf* WarDebt = BPMod . bp_IFG ( WarrAllowance , 0 , WarDebtExp, 0 ) _ 

'%} TotDebt = MinDebt + Payment + InsDebt - WarDebt + DebtAdjustment 

y I « JyfQ t e 

.1 . TotDebt is used in RealJob, FinalCFCalculat ion, DebtProblem, 

Fttot section 

7**************** ****************************************** ********** 

* * * 

t ******************************************************************** 

* * * 

■Calculate Variable Time On Job whether married or not = "RealJob" 
, *t*** **************************************************** *********** 

* * * 

' Input Parameters 

* Job, Inc, Support, SpJob, Spine, Totallnc, TotDebt, Spouse 

Joblnc = Job * ( Inc - Support ) 
SpJoblnc = SpJob * Spine 

RealJobExp2 = ( Joblnc + SpJoblnc ) / Totallnc 

RealJobExpl = BPMod . bp IFLE ( TotDebt / ( Inc - Support ),0.40, 

BPMod. bp_MAX (Job, Real JobExp2 ) , RealJobExp2 ) 
RealJob = BPMod. bp_IFB ( Spouse, RealJobExpl, Job ) 

i Note 

■ *" RealJob is used in JobTot, FTBBonus / Smal lFTBBonus , DebtScaler 
,******************************************************************** 

* * * 

,******************************************************************** 

* * * 

■Calculate JobTot to be used in Customer Factor Determination 
********************************************************************* 

* * * 

1 Input Parameters 

■ RealJob 
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JobPointsl = LookupJobTable ( RealJob, 2 ) 
ExtraTime = Real Job - LookupJobTable ( RealJob, 1 ) 
JobPoints2 = LookupJobTable ( RealJob, 3 ) * ExtraTime 
jobTot = JobPointsl + JobPoints2 

'Note 

JobTot is used in FmalCFCalculation 
, ^ ^ ************* ****************** ********************************* 



i ************** 
* * * 



****************************************************** 



■Calculate Bonus Points For FTB or Short Bureau to be used as part of 

:*i***-******^ 

* * * 

* Input Parameters 

' YrsTRW, vClass, Repos, RealHiDerog, Reallnc, Payment, CB, iNfa, 
SigDown, 

* PhBill, TotalDown, Price, Spouse, Resid, RealJoo, 

*■* FTB INC = 1 

O FTBPMTRat i o = 1 

A FTBCB = 1 

W FTBPhBill = 2 

■£ FTBDown = 0.20 

si-; FTBSpouse = 2 

!Sf FTBRes id = 3 
FTB J ob = 3 



FTBPointsCondl = BPMod . bp IFLE ( YrsTRW, 1 . 1 , 1 , 0 ) * BPMod . bp_IFNE ( 

IP vClass,5,l,0 ) * BPMod . bp IFE ( Repos , 0 , 1 , 0 ) * BPMod . bp_IFL ( 

RealHiDerog, 3000, 1, 0 ) 

FTBPoints7 = BPMod , bp IFGE ( Reallnc , 1 5 0 0 , FTBInc , 0 ) 

D FTBPoints6 = BPMod . bp IFLE ( Payment / Reallnc, 0.20, FTBPoints7 + 

La FTBPmtRatio, FTBPoints7 ) ^ „™„ ■ . c 

FTBPoints5 = BPMod . bp IFLE ( CB - Ins - SigDown, 5500 , FTBPointsb + 

y FTBCB, FTBPoints6 ) _ . 

;.fi FTBPoints4 = BPMod . bp_IFB ( PhBill , FTBPoints5 + FTBPhBill, FTBPoints5 ) 

3 FTBPoints3 = BPMod . bp IFGE ( (TotalDown / Price), 0.25, FTBPomts4 + 1 

y' + ( TotalDown / Price - 0.25 ) / FTBDown , FTBPoints4 ) 

m FTBPoints2 = BPMod . bp_IFB ( Spouse , FTBPoints3 + FTBSpouse, FTBPomts3 ) 

bW FTBPointsl = BPMod . bp IFGE ( Res id , 2 . 1 , FTBPoint s2 + 

FTBResid, FTBPoints2 ) 

FTBPoint s Exp = BPMod . bp_IFGE ( RealJob, 2 . 1, FTBPointsl + 

FTBJob, FTBPointsl ) m 

FTBPoints = BPMod . bp_IFB ( FTBPointsCondl, FTBPomtsExp, 0 ) 

Smal lFTBBonus = < 1.1 - YrsTRW ) * 0.25 * BPMod . bp — MIN ( 1, FTBPoints 

/ 6 ) 

FTBBonus = BPMod . bp_IFG ( FTBPoints, 6, ( 1.1 - YrsTRW ) * 0.50 * 
BPMod. bp_MIN( 1, ( FTBPoints - 6 ) / 3 ) , 0 ) 

Note 

FTBPoints used in MINTRW 
Smal lFTBBonus used in FineTune 
FTBBonus is used in FineTune 
******************************************************************** 

* * * 



,******************************************************************** 

* * * 

'Begin Special Points Model; yields FTSpecialPoint s 

•Hit for low job and low resid at same time = shorttimehit 

,******************************************************************** 

* * * 

1 Input Parameters 
' Resid, Job 

STHitl = 0.9 
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STHit2 = 0.6 
STScalerl = - 0.10 
STScaler2 = - 0.20 

ShortTimeHitCondl = BPMod . bp.IFLE ( Job, STHitl ,1,0 ) * BPMod.bp.IFLE ( 
Kesid, STHitl, 1, 0 ) * BPMod . bp_IFB ( Spouse, BPMod . bp_IFLE ( 

^rtTiSJiiciiL^ BpLd.bp_IFLE( Job /S THit2,l,0 ) * BPMod . bp.IFLE ( 
Resid, STHit2 , 1, 0 ) * BPMod . bp IFB ( Spouse, BPMod . bp_IFLE ( 

^ortTf™Hiti 1 4°( ) ( STHitl * STHitl ) -.(Job* Resid ) > * STScalerl 

ShortTimeHitExpl = BPMod . bp IFB ( Snort Time Hi tCond2 , ShortTimeHit 1 + ( 

( STHit2 * STHit2 ) - ( Job * Resid ) ) * STScaler2 / ShortTimeHit 1 ) 
ShortTimeHit = BPMod . bp IFB ( ShortTimeHitCondl, ShortTimeHitExpl, 0 ) 



* * * 



ShortTimeHit is used in HICBHit , Opt imalCBCredi t 



Note 

, m « t t- J t_ J. , ,J A "L J T "O I-I t- ( Yr~%1- -i I ( 'Hi ' T" _^ ,,,„ 

**************** 



■*********************************************^ 

* * * 

'Hit For Hi Amount Financed unless override=Y; = "HICBHIT" 
i t * **^ ******************************************* ^ 

* * * 

* Input Parameters 

' CB, INS, SigDown, ShortTimeHit, Repos, BK, TotalGood, TotalDerog, 
■ RealHiGood, RealHiDerog, TotalLessIns, 

HCBAmtFin = 8000 
HCBScaler = - 0.00015 

HiCBNumber = BPMod . bp_IFG ( ( CB - Ins - SigDown ), HCBAmtFin, ( CB - 
Ins - SigDown - HCBAmtFin ) * HCBScaler, 0 ) 
HCOl = BPMod. bp__IFE ( ShortTimeHit , 0 , 1, 0 ) 

HC02 = BPMod. bp_IFE ( Repos, 0, HCOl + 1, HCOl ) f 

HC03 = BPMod . bp IF AND 2 ( BPMod . bp_IFE ( Repos ,1,1,0 ) , BPMod . bp_IFB ( 

BK, 1,0 ), HC02 + 1, HC02 ) 

•HiCBOverideExp = BPMod . bp_IFGE ( HC03 , 2, HCPExp, 1 ) 

'HiCBOveride = BPMod . bp IFL ( HiCBNumber, 0, HiCBOverideExp,! ) 

■This is again corrected in mike dukes expression files. 
HCP1 = BPMod . bp_IFGE ( TotalGood, TotalDerog, 1, 0 ) 

HCP2 = BPMod. bp_IFGE ( RealHiGood, RealHiDerog, HCPl + 1, HCPl ) 

HCP3 = BPMod . bp IFGE ( RealHiGood, 0 . 50 * ( TotalLessIns - SigDown ), 

HCP2 + 1, HCP2 ) 

HCPExp = BPMod. bp__IFGE ( HCP3 , 2, 0, 1 ) 

HiCBOverideExp = BPMod . bp_IFGE ( HC03 , 2, HCPExp, 1 ) 

HiCBOveride = BPMod . bp IFL ( HiCBNumber, 0, HiCBOverideExp , 1 ) 

HiCBHit = HiCBNumber * HiCBOveride 

•Note 

HiCBHit is used in Opt imalCBCredi t 

* * * 



.*********************************^ 

* * * 

'Extra Points For Optimal CB = Opt imalCBCredi t 
,**********************************************^ 

* * * 

* Input Parameters . , , 

' TotalLessIns, Payment, ShortTimeHit, RealDown, Variance, HiCBHit 

OptimalCB = 58 0 0 
AllowVariance = 17 0 0 
OptimalPoints = 0.13 

Variance = ABS ( TotalLessIns - OptimalCB ) 

OptimalCBExpl = BPMod . bp IFB ( BPMod . bp IFGE ( Payment, 240, 1,0 ) * 
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BPMod.bp IFE( ShortTimeHit, 0, 1, 0 ) * BPMod.bp_IFGE( RealDown, 
1000 1,~~0 ),( 1 - Variance / AllowVariance ) * OptimalPomts, 0 ) 
OptimalCBCredit = BPMod.bp_IFL ( Variance, AllowVariance, 
OptimalCBExpl, 0 ) , 

FTSpecialPoints = OptimalCBCredit + HiCBHit + ShortTimeHit 
•Note 

■ FTSpecialPoints is used m FineTune 

, ********it ********* ************************************************* 



t ******************************************************************** 

* * * 

1 FineTune Model to be added to customer factor = "FineTune" 

,1*^*2 ******** ****** ************************************************* 

* * * 

' in-put Parameters m ^ _ ^ 

' FTBBonus , Smal lFTBBonus , BKBonus , PhBill, TotalDerog, TotalGood, 

^EquityTest, TotalLes sins , MaxCB , Ins, RealHiDerog, YrsTRW, Repos, 
BK, INSFlag 

FTBonus = FTBBonus + Smal lFTBBonus + BKBonus 

FTPhBill = BPMod.bp IFAND2 ( BPMod . bp IFB ( PhBill, 1, 0 

) BPMod . bp IFL ( TotalDerog + TotalGood, 4, 1, 0 ), 0.12, 0 ) 

FTDerogHit = BPMod . bp__IFG ( TotalDerog, 4, - 0.05 - 0.01 * ( 
TotalDerog — 5 ) , 0 ) 

FTSigDown = SigDown * .0001 + BPMod . bp_IFG ( SigDown, 2000, ( SigDown 
- 2000 ) * .0001, 0 ) . 

FTEquity = 0.7 5 - EquityTest + BPMod . bp_MAX ( 0.6 - EquityTest, 0 ) 
FTBuylFBreathing = BPMod . bp_MAX ( FTSigDown, FTEquity ) * 

BPMod. bp_IFOR2 ( BPMod . bp IFL ( Totalises sins , ( MaxCB - Ins ) * 0.75, 

1, 0 ) , BPMod . bp__IFGE ( SigDown, 1000, 1, 0 ), 1, 0 ) 

FTSmallHiDerog = BPMod . bp_IFB ( BPMod . bp_IFE ( TotalGood, 0, 1, 0 ) 
BPMod . bp IFLE ( RealHiDerog, 50 0, 1, 0 ) * BPMod . bp_IFG ( YrsTRW, 1, 1, 

FTBHD°= 3 BPMod!bp_IFB ( BPMod . bp_IFGE ( RealHiDerog, 2700, 1, 0 ) * 
BPMod. bp_IFB ( BK, 0, 1 ) * BPMod. bp_IFE ( Repos , 0, 1, 0 ),( 
RealHiDerog / 8000 ) * - 0.60, 0 ) 
FTBigHiDerog = BPMod . bp__MAX ( - 0.5 0,FTBHD ) 

InsCantFindErr = BPMod . bp_IFB ( InsFlag, Lookuplns ( TotalLessIns , 3 ), 

FineTune = FTSpecialPoints + FTBigHiDerog + FTSmallHiDerog + 
FTBuylFBreathing + FTDerogHit + FTPhBill + FTBonus + InsCantFindErr 

•Note 

' FineTune is used in FinalCFCalculat ion 

i ***************** ****************** ********************************* 



************************************************************* 

•Becrin Final Customer Factor Calculation Add Up " F " Variables 

, *t**~* * * *** ********************************************************** 



i ******* 
* * * 



* * 
* * * 



•Input Parameters . m _ _ ^ __ 

• YrsTRW, vJobTot, ResidTot, TotalGood, RealHiGood, TotalDerog, Bk, 
TotalLessIns, ^ ^ 

• EcxuityTest, RealHiDerog, BK, Home, Reallnc, SpJob, SpGood, Spouse, 
Cox, FineTune 



CFTRWScaler = 0.75 
CFJobScaler = 0.9 0 
CFResidScaler = 0.60 
CFHiGoodScaler = 0.9 0 
CFBKScaler = 1.00 
CFHomeScaler = 0.80 
CFIncScaler = 0.075 
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CFDebtScaler = 1.00 

TRWPart = BPMod.bp_IFL ( YrsTRW, 2, BPMod . bp„MIN ( YrsTRW * 0.5, 0.9 
), BPMod. top_MIN ( 0.7 + YrsTRW * 0.1, 1 ) ) 
FTRW = TRWPart * CFTRWScaler 

JobPart = JobTot / 10 

FvJoto = JobPart * CFJobScaler 

ResidPart = ResidTot / 10 

FResid = ResidPart * CFResidScaler 

GoodPart = BPMod . top__IFL ( TotalGood, 2, TotalGood * 0.5, 
BPMod.bp_MIN( 0.5 + TotalGood * 0.1, 1 ) ) 
FGood " GoodPart * GoodScaler 

HiGoodPart = BPMod . top IFL ( RealHiGood, 20000, 0.5 * RealHiGood / 

20000, 0.5 ) 

FHiGood = HiGoodPart * CFHiGoodScaler 

DerogPart = BPMod.bp_IFL ( TotalDerog, 4, TotalDerog * - 0.25, - 0.5 
- TotalDerog * 0 . 1 ) 

BKDerog = BPMod . bp IFB ( BK, 0.7, 1 ) 

!U, FDerog = BPMod . bp_MAX ( DerogPart * BadScaler, - 1.0 5 ) * BKDerog 

D CFPhBillScaler = BPMod . top IFL ( TotalLessIns, 4000, 0.8, 0.65 ) * 20 / 

^ PhBillPart = BPMod . top IFB ( PhBill, BPMod . top IFL ( EguityTest, 0.90, 

42 0.33, 0.33 * 0.80 ), 0 ) 

i'-i FPhBill = PhBillPart * CFPhBillScaler 

v2 RepoPart = Repos * - 0.2 5 

J? CFRepoScaler = BPMod . bp_IFG ( RealHiDerog, 1000, 2, BPMod . top_MAX ( 1, 



RealHiDerog * .002 ) ) 
FRepo = RepoPart * CFRepoScaler 

BKPart = BPMod . top_IFB ( BK, - 0.5, 0 ) 
FBK = BKPart * CFBKScaler 



1 CHANGE 

■J\ HomePart = BPMod. top_IFB ( Home, 2/3, 0 ) 
2 ' CHANGE ADD THIS 

U HomePartScaler= 0.4 + 0 . 4 * ( BPMod . top_IFG (RealHiGood, 30000, 
HI RealHiGood-30000, 0)/70000) 

FHome = HomePart * BPMod . top__MIN ( CFHomeScaler , HomePart Scaler ) 



IncPart = BPMod. top_IFL ( Reallnc, 3000, Reallnc / 2000, BPMod . top_MIN ( 
Reallnc, 12000 ) / 1800 ) 
Fine = IncPart * CFIncScaler 

DetotPart = BPMod . top__IFGE ( TotDebt / Reallnc, 0.55, - 0.1, 
BPMod . top_MIN ( 0.7 - TotDebt / Reallnc, 0.5 ) ) 
FDetot = DetotPart * CFDebtScaler 

CFSpouseScaler = BPMod . top IFLE ( YrsTRW, 1, 0.5, 0.3 5 ) 

Worthless Spouse = BPMod . bp_IFAND2 ( BPMod . top_IFDE ( SpJob, 0, 1, 0 
) , BPMod . top IFLE ( SpGood, 0, 1, 0 ),0, 1 ) 

SpousePart = BPMod. top_IFB ( Spouse, 0.5, 0 ) * WorthlessSpouse 
FSpouse = SpousePart * CFSpouseScaler 



CoxPart = BPMod. top_IFB ( Cox, 0.5, 0 ) 
CFCoxScaler = CoxScaler / 10 
FCox = CoxPart * CFCoxScaler 

TotalCFPoints = FTRW + FCToto + FResid + FGood + FHiGood + FDerog + 
FPhBill + FRepo + FBK + FHome + Fine + FDetot + FSpouse + FCox + 
FineTune 

CustFact = BpMod . bp^ROUND ( BPMod . bp_MAX ( BPMod . top MIN ( TotalCFPoints , 5 
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) , 0 . 001 ) * 0.98, 2) 



'Note 

■ DebtPart is used in Error Section 

1 FCox is -used, in Error Section 

CustFact is used in ExcessTerm Determination, XTerm, 
CFComponent = 

• CFAllowance , Down Payment Probability, MinFact, 
KinKTerm, 

• FinalReserve, Error Section 

,******************************************************************** 

* * * 

'Customer Factor Calculation ends here 

,******************************************************************** 

* * * 



If i ,******************************************************************** 

'L... * * * 

U 'Calculate Scaler if good customer with higrh debt = " debt scaler " 

iisswa t ******************************************************************** 

* * * 

!S f !! ' Input Parameters 

IU| 1 TotalLessIns, Reallnc, RealJob, YrsTRW, TotalDerog, RealHiDerog, 

m TotalGood 

\4 DebtScaler_expl = BPMod. bp IFOR2 ( BPMod . bp IFLE ( TotalLessIns , Reallnc 

^ * 5,1,0 ) , BPMod . bp IFLE ( TotalLessIns , 4500 , 1, 0 ),1,0 ) 

^- DebtScaler_exp2 = BPMod . bp IFGE ( RealJob, 1,1,0 ) 

DebtScaler_exp3 = BPMod . bp IFGE ( YrsTRW, 1,1,0 ) 

~* DebtScaler_exp4 = BPMod . bp_IFOR2 ( BPMod . bp IFLE ( TotalDerog, 1,1,0 

W ) , BPMod . bp IFLE ( RealHiDerog , 4 0 0 , 1 , 0 ),1,0 ) 

!U DebtScaler_exp5 = BPMod . bp_IFLE ( TotalGood, 4, 1, 0 ) 

* n DebtScaler„exp6 = BPMod . bp_IFL ( TotalGood , TotalDerog , 1 , 0 ) 

^ DebtScaler„exp7 = BPMod . bp_IFL ( Reallnc, 1700, 1, 0 ) 

yQ DebtScalerCondition = DebtScaler_expl * DebtScaler_exp2 * 

p=j: DebtScaler_exp3 * DebtScaler„exp4 * DebtScaler_exp5 * DebtScaler„exp6 

W * DebtScaler_exp7 

DSInc = BPMod . bp_MAX ( Reallnc, 12 0 0 ) 
DebScalerExp = 0.5 + ( DSInc - 1200 ) / 1000 

DebtScaler = BPMod . bp„IFB ( DebtScalerCondition , DebScalerExp , 1 ) 
'Note 

DebtScaler is used in Debt Problem, PPAdjust 
t *************************************** 



t ************************************************************ 

* * * 

'Calculate debt ratio hit for pay prob adjustments = " debtproblem" 
,******************************************************************** 

* * * 

' Input Parameters 

'Reallnc, TotDebt, EquityTest, DebtScaler 
DebtRatio = Reallnc / TotDebt 

DebtHisExp = BPMod . bp_IFLE < DebtRatio, 2, 0.22 5 + ( 2 - DebtRatio ) * 
0.6, ( 2.5 - DebtRatio ) * 0.45 ) 

DebtHit = BPMod . bp__IFLE ( DebtRatio, 2.5, DebtHisExp, 0 ) 
DHMaxl = BPMod . bp_MAX ( 0.95 - EquityTest, 0 ) 
DHMax2 = BPMod . bp_MAX ( 0.75 - EquityTest, 0 ) 
DebtHit Scaler = 1.05 - DHMaxl - DHMax2 

DebtProblem = DebtHit * DebtHit Scaler * DebtScaler 
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'Note 

1 DebtProblem is -used in PPAdjust 



* * * 



* * * 

'Excess Term Determination Model Beyond, base term 
•Models yield " f reeterm" , "buyterm" , & "extent!" 

* * * 

1 Input Parameters 

' SigDown, Payment, CustFact, vClass, Miles, Car Age , CB, INS, Ins 

FreeGetNone = 1.7 5 
FreeGetAll = 2.30 
SBGetNone = 2.7 5 
SBGetAl 1 = 3.2 5 
BaseTerm = 31 

MinPmt = 255 - { SigDown / 75 ) 

OKPmt = BPMod . bp_IFGE ( Payment , MinPmt ,1,0 ) 

Regular FreeTerm = BPMod . bp_IFG ( CustFact, FreeGetNone, 1, 0 ) 

YEMiles = LookupTermTable ( vClass, 2 ) 
YE Age = LookupTermTable ( vClass, 3 ) 
ME Age = LookupTermTable ( vClass, 4 ) 
MEMiles = LookupTermTable ( vClass, 5 ) 

FreeTermPercent = BPMod . bp_MIN ( ( CustFact - FreeGetNone ) / ( 
FreeGetAll - FreeGetNone ) , 1 ) 

TermdNewerCar = BPMod . bp IFLE ( Miles, YEMiles, BPMod . bp_MAX ( YE Age - 

CarAge , 0 ) , 0 ) * FreeTermPercent 

Term4LowMiCar = BPMod . bp IFLE ( CarAge, MEAge , BPMod . bp_MAX ( ( MEMiles 

- Miles ) / 5000, 0 ), 0 ) * FreeTermPercent 

StrongBuyerFreeTerm = BPMod. bp_IFG ( CustFact, SBGetNone, 1, 0 ) 

SBAge = LookupTermTable ( vClass, 6 ) 
SBMiles = LookupTermTable ( vClass, 7 ) 



SBFreeTermPercent == BPMod . bp MIN ( ( CustFact - SBGetNone ) / ( 

SBGetAl 1 - SBGetNone ) , 1 ) 

Term4StrongBuyer = BPMod . bp_IFAND2 ( BPMod . bp_IFLE ( CarAge, SBAge, 
0 ), BPMod. bp_IFLE ( Miles, SBMiles, 1, 0 ),3 * SBFreeTermPercent, 

Quali f yFreeTerm = BPMod . bp IF AND 2 ( BPMod . bp__IFB ( RegularFreeTerm , 

0 ), BPMod. bp_IFB ( StrongBuyerFreeTerm, 1, 0 ) , Term4NewerCar + 

Term4LowMiCar + Term4 S t r ongBuyer , BPMod . bp IFB ( RegularFreeTerm, 

Term4NewerCar + Term4LowMiCar , 0 ) ) 

FreeTerm = BPMod . bp_IFG ( Term, BaseTerm, BPMod . bp_MIN ( 
Qualif yFreeTerm, Term - BaseTerm ) , 0 ) * OKPmt 

OKTerm = BaseTerm + FreeTerm 
BuyTerm = BPMod . bp_MAX ( Term 



1, 
0 ) 
If 



OKTerm, 0 ) 

ExTermScaler = ( CustFact - 1 ) / 1.75 * 0.01 



ExcessCharge = BPMod. bp_IFG ( CustFact, 1, 0.015 - ExTermScaler, 
0.015 ) 

CostPerMonth = BPMod . bp_MAX ( ExcessCharge, .005 ) 
PmtBelow2 5 0 = BPMod. bp_IFL ( Payment, 250, 1000, 1 ) 
TooLong = BPMod. bp_IFG ( BuyTerm, 6, 10 00, 1 ) 
Must BuyTerm = BPMod . bp_IFGE ( BuyTerm, 0, 1, 0 ) 
ExTerm = BPMod . bp_IFB ( MustBuyTerm, CostPerMonth * BuyTerm * 
PmtBelow2 5 0 * TooLong, 0 ) * ( CB - Ins - WarrAl lowance ) 
'ExTerm Determination Ends Here 



■Note 



FreeTerm is used in Xterm 
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BuyTerm is used, in Xterm 

ExTerrn is used in Down Payment Probability, SpreadNum, Fxnal 

Reserve , 

' Error Section 

,******************************** ************************************ 



,******************************************************************** 

* * * 

■Primary term nit/helper = xterm 

,******************************************************************** 

* * * 

1 Input Parameters 

1 CustFact, CarAge, vClass, MaxCB, Ins, Miles, Term 

TermCust = CustFact * 2 0 
KentTerm = < 12 - Car Age ) * 6 
ClassTerm = 5 - vClass 
ClassScaler - ClassTerm / 5 

CBTerm = BPMod.bp_IFG ( ( MaxCB - Ins ), 6 0 00, ( MaxCB - Ins - 6000 ) 
/ 500, 0 ) 

TermCFScaler = BPMod.bp_.IFG ( CustFact, 1, BPMocL . bp_MIN ( CustFact - 
jU. 1, 1 ) , 0 ) 

C TermCar = KentTerm + { ClassTerm + CBTerm * ClassScaler ) * 
O TermCFScaler 

pii TermMaxMiles = 180000 - ( vClass * 10000 ) 

r tf SubtractTerm = BPMod . bp IFG ( Miles, TermMaxMiles, ( ( Miles - 

JS TermMaxMiles ) / 10000 ) * vClass / 2, 0 ) 

h\ TermMax = BPMod . bp_MIN ( TermCar, TermCust ) + Buy Term * 0.5 + 
li FreeTerm * 0.5 - SubtractTerm 
0= XTerm = Term - TermMax 



am 



'Note 

l=P 1 XTerm is used in PPAdjust 

,^^^^^^^^^**vt******************************************************** 



' OK Till Here 



,******************************************************************** 

* * * 

' Calculate Input Discount 

■Note separated the input discount to calculate from down payment 
probability 

1 as it used, in other places 

i******************************************************************** 

* * * 

■ Input Parameters 
' CustFact, Reserve 

FedExTax = BPMod . bp_IFGE ( CustFact, 2.5, 0, BPMod . bp_MIN { ( 2.5 - 

CustFact ) * 76, 39 ) ) 

InputDis count = Reserve - FedExTax 

'Note 

1 InputDis count is used in downpayment probability, spreadnum, 

Error Section 

,^^.^^.^***^^y e ***vr***************************************************** 



,******************************************************************** 

* * * 

PAYMENT PROBABILITY MODEL 

,^^^^^^^^*^^^^Vr****************************************************** 

* * * 

,******************************************************************** 

* * * 
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' CUSTOMER FACTOR COMPONENT = " CFALLOWANCE " 
,*********************************************^ 

* * *• 

* Input Parameters 
' CustFact 

CFSMin = LookupCFScalerTable ( CustFact, 1 ) 
CFSBase = LookupCFScalerTable ( CustFact, 2 ) 
CFSExtra = LookupCFScalerTable ( CustFact, 3 ) 

CustFactScaler = CFSBase + ( CustFact - CFSMin ) * CFSExtra 
CFAllowance = CustFactScaler * CustFact 

'Note 

CFAllowance used in calculating PayProb 

* * * 

* * * 

1 Down Payment Probability^ " DownPrice" 

* * * 

' Input Parameters 

* Price, InputDiscount, SigDown, ExTerm 

iHT 'FedExTax = BPMod . bp_IFGE ( CustFact, 2.5, 0, BPMod . bp_MIN ( ( 2.5 - 

U CustFact ) * 76, 3 9 ) ) 

fjf 'InputDiscount = Reserve - FedExTax 

% DownA 1 1 o wane e = ( Price * 0.2 ) + InputDiscount + SigDown - ExTerm 

i*" DownPrice - DownAllowance / Price 

yj 

$f\: 1 Note 

1 DownPrice usedin calculating PayProb 

%j ,****************************************^ 

m * * * 

!L , ***************************************^ 

%zs? •*- * * 

in* ' OVERALL SCALER 

^ ,*******************************************^ 

* * * 

PPScaler = 0.95 
y 'Note 

III ■ PPScaler is used, in calculating PayProb 



1 ADJUSTMENTS = " PPADvJUST " 

* -* * 

' Input Parameters 

■ Debt Problem, CrapRatio, DebtScaler, Payment, Term, Xterm 

StupidNum - 8 
StupidTerm = 17 

PPDebt = DebtProblem * - 0 . 7 

PPCrap = ( CrapRatio * DebtScaler ) * - 1 

PPStupid = BPMod . bp_IFB ( BPMod . bp_IFL ( Payment / Term, StupidNum, 1,0 ) 

* BPMod . bp_IFGE ( Term, StupidTerm, 1, 0 ), ( StupidNum - Payment / Term 
) * - 0 . 1, 0 ) 

PPTerm = XTerm * - 0 . 01 

PPAdjust = PPTerm + PPDebt + PPStupid + PPCrap 
' Note 

PPStupid is used in Error Section 
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PPTerm is used in Error Section 
1 PPAdjust is used to calculate PayProb 

★ * * 

PayProb = CFAllowance * DownPrice * PPScaler + PPAdjust 
' Note 

' PayProb is used in SpreadNum 

i*****************************^ 

•k * * 

' End Payment Probability 



★ * * 

'DISCOUNT NEEDED BASED ON PAYMENT PROBABILITY MODEL = "SPREADNUM" 

i************************************^ 

•* ■*• * 

1 Input Parameters 

' PayProb, InputDiscount , TotalLessIns, Warr Allowance , ExTerm, 
Discount Allow 
» CB, Ins, WarrAllowance 

SpreadNumScaler = 0.50 

O SpreadReq = 0.12 

^ LossProb = BPMod.bp_MIN ( 1 - PayProb, 1.1 ) 

*E Discount Allow = InputDiscount * 2 

f g !j Loss Amount = LossProb * ( TotalLessIns - WarrAllowance ) + ExTerm - 

Zl Discount Allow 

0! Spread = SpreadReq * ( CB - Ins - WarrAllowance ) 

~J SpreadNum = ( Loss Amount + Spread ) * SpreadNumScaler 

CP 'Note 

SpreadNum is used in Final Reserve 

o * * * 

u. 

; ; f % * * * 

Sf * MINIMUM % DISCOUNT AREA 

U 1 CALCULATE MIN % DISCOUNT DEPENDING OF # REPOS = "MINREPO" 

^ * * 

' Input Parameters 
' Repos, BK 

MinRepoExp3 = BPMod . bp_CASE3 ( repos, 1, 2, 3, 0.12 5, 0.20, 0.35, 0.50 
) 

MinRepoExp2 = BPMod . bp_CASE2 ( repos, 1, 2, 0.10, 0.17 5, 0.30 ) 
MinRepoExpl = BPMod . bp_IFB ( BK, MinRepoExp2 , MinRepoExp3 ) 
MinRepo = BPMod . bp_IFE ( Repos , 0 , 0 . 10 , MinRepoExpl ) 

1 Note 

MinRepo is used in FinalReserve 

i St tAt "^r tAt tAt *£c "fc tAt 'fc ^Ar "^f "^c "A" "fc t^t ^fc" "A* "A "A ^Ar ^At Tfc ^fc - tAt "A* "Jc 'fc *5Ar Tfc - tAt tAt "ft "ft tAt ^Ar ^A? ^Ar ^Ar "^r ^fe* "A* "Jc "fc *Jc 



* * * 

•CALCULATE MIN % DISCOUNT BASED ON HI DEROG = "MINDEROG" 

i tIt tPc ^At ifrifcTtTfrVfVr^f'iV^r^ "^c Tte ^fe itc t?c ye t/c ~tc "ft & °k rk^ife^^^^^^^^^^^^^^'^'k'k'^c^^c^c'^c'^'^c'^s'^i^C ^fc* <fe ^A? Tfe" 

* •* * 

1 Input Parameters 

1 RealHiDerog, BK, MinDiscount 
MinDiscHiDerog = 0.12 
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MinDerog = BPMod . bp_IFB { BPMod . bp_IFGE ( RealHiDerog , 3 0 0 0 , 1 , 0 ) * 
BPMod . top IFE ( BK,0, 1,0 ), MinDiscHiDerog, MinDiscount ) 

1 Note 

1 MinDerog is used in Final Reserve 

i ******************************* 

* * * 



* * * 

' CALCULATE MIN % DISCOUNT BASED BK=YES AND OTHER FACTORS = "MINBK" 

* St ifc jfr ^ ^fc* *3fc sfc "air "afc t&t "Jc ^ tAt <Ar *jlr tAt Tfir sk* ^fc* Vf^^^^^^^^^^^^^^^Tlr^^^^Vc , Tfc''^rT*rVc*"^cVrVfTV^r^^Ar ^Ar ^ 

* * * 

* Input Parameters 

' TotalDown , Reallnc, TotalGood, Home, Spouse, RealHiGood, BK, 
YrsTRW, vClass 
' MinDiscount 

MBKDown = 1 

MBKInc = 3 

MBKHome = 1 

MBKSpouse = 1 
g. . MBKMinPoints = 6 
in 5 MinDiscStrongBK = 0.11 
fl MinDiscRegularBK = 0.15 

MBKGood = 3 

MBKHiGood = 3 

^ BKPoints6 = BPMod . bp_IFGE ( TotalDown , 3 0 0 0, MBKDown , 0 ) 

W BKPointsS = BPMod.bp_IFGE( Reallnc ,3000, BKPoints6 + MBKInc , BKPoints6 

ff! ) 

BKPoints4 = BPMod . bp_IFGE ( TotalGood , 8 , BKPointsS + MBKGood,BKPoints5 
) 

iffl BKPoints3 = BPMod. . top IFB ( Home , BKPoints4 + MBKHome, BKPoints4 ) 

BKPoints2 = BPMod . top IFB ( Spouse , BKPoints3 + MBKSpouse , BKPoints3 ) 

35 BKPointsl = BPMod . top IFGE ( RealHiGood , 1 0 0 0 0 , BKPoints2 + 

O MBKHiGood, BKPoints2 ) 

y' M i nBKExp 2 = BPMod . top IFGE ( BKPointsl, MBKMinPoints, MinDiscStrongBK, 

'» ; MinDiscRegularBK ) 

O MinBKCon = BPMod . top IFB ( BK,1,0 ) * BPMod . top_IFGE ( Reallnc, 2400 , l r 0 ) 

* BPMod. top__IFGE { TotalGood, 5, 1, 0 ) * BPMod . bp_IFGE ( YrsTRW, 8,1,0 ) * 
'fe§ BPMod . top IFNE ( vClass,5,l,0 ) 

Q MinBKExpl = BPMod . top IFB ( MinBKCon, MinBKExp2 , MinDiscRegularBK ) 

ffs MinBK = BPMod . top_IFB ( BK , MinBKExpl , MinDiscount ) 

' Note 

' MinBK is used in FinalReserve and BKBonus 

' BKBonus is defined above so that should toe redefined or this 

needs to 

1 move up there somewhere 

* tAt Tfc - "A "^r ^fc "^c *5t "Jc ifc "fc "-Ac ^? "fc ^ tAt lAf tAt t^t ^At Tfr ifc ^Ar -fc t^t -jc tAt ^At tAt ^Ar ^fc - tAt tAt "^t ^Ar ^A? tAt tAt "^f tAt tAt ^fc "3Ar Vc 



i ^Ar^Ar^Ar*A?}A?}Af'3A?TAf^Ar^Af^fcrTfc^AfTAr^?^r ^Ar Tfcr^Ar^r^Ar^ArTfc^Ar^Ac - ^rTArTAr^ArTAr^ArjAr , ^r^Ar^Ar^Ar'^r ^r^r^r^^r'^^r'^r ^Ar ^ ^Ar tAt ^Ar ^Ar ^Ar ^Ar ^Ar'*ArTArTAr^ArTAf'<Af^Ar^AfTfc^Ar^Ar 

* * * 

'CALCULATE MIN % DISCOUNT BASED ON LOW TIME ON BUREAU = " MINTRW" 

* •* * 

1 Input Parameters 

■ FTBPoints, CoxScaler, YrsTRW 

MinTRWExp = BPMod . top_IFOR2 ( BPMod . bp_IFGE ( FTBPoints ,9,1,0 ) , 

BPMod. bp_IFGE ( CoxScaler , 30 , 1, 0 ), 0.12 5 - ( YrsTRW / 4 0 ), 0.15 - ( 

YrsTRW / 20 ) ) 

MinTRW = BPMod . top IFL ( YrsTRW, 1, MinTRWExp , 0.10 ) 

1 Note 

1 MinTRW is used in Final Reserve 



Page: 2 2 



B-23 



File: Z: \BP3 . ll\Data\Calif ornia\exp.bpD 1/3/2 0 02, 4:51: 57PM 



,******************************************************************** 
* * * 



**************************************** 

* * * 

1 CALCULATE MIN % DISCOUNT BASED ON CustFact= "MINFact " 

i * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * "A* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * "s^c * * * 

* * * 

' Input Parameters 

' SigDown, TotalLessIns, WarrAllowance , CustFact, MinDiscount 



FactMinDisc = 0.3 



SigDownHelper = ( SigDown * 0.25 ) / ( TotalLessIns - WarrAllowance ) 
Below75 = BPMod.bp_IFL( CustFact, 0.75, 1, 0 ) 

Below75Hit = BPMod.bp„IFL( CustFact, 0.35, .2, ( 75 - ( CustFact * 
100 ) ) * .005 ) 

Below3 5 = BPMod.bp_IFL( CustFact, 0.35, 1, 0 ) 
Below2 0 = BPMod.bp_IFL( CustFact, 0.20, 1, 0 ) 
LowBalScaler = BPMod . bp_IFLE ( TotalLessIns, 2000, 0.50, 

BPMod . bp IFLE ( TotalLessIns, 3000, 1 - ( ( 3000 - TotalLessIns ) / 

1000 ) * 0.50, 1 ) ) 

§4* MinFact75 = ( FactMinDisc + Below7 5Hit - SigDownHelper ) * 

n LowBalScaler 

5? MinFact3 5 = BPMod . bp_IFB ( Below3 5, BPMod. bp_IFB ( Below2 0, 10, 
U BPMod. bp_IFG ( TotalLessIns, 3000, 10, 0 ) ), 0 ) 

MinFact = BPMod . bp_IFB ( Below7 5, BPMod . bp_MAX ( MinFact7 5, MinFact3 5 
.jyj ) , MinDiscount ) 

iff! 1 No t e 

' MinFact is used in FinalRe serve 

ffv$s * * * 

J""* I ******************************************************************** 

* * * 

0 'ADDITIONAL DISCOUNT FOR KINKY TERM = "KINKTERM" 

^ t******************************************************************** 

'43 * * * 

Q ' Input Parameters 

.5^ ' Term, Car Age , Miles, CustFact 



CostPerKinkPoint - 
KinkAge = 8 
KinkMiles = 120000 
KinkCF = 1.7 0 
KinkMaxTerm = 2 8 



TermlsKinky = BPMod . bp_IFG ( Term, KinkMaxTerm, 1, 0 ) 

KinkSubtot = BPMod . bp_MAX ( CarAge - KinkAge, 0 ) + BPMod . bp_MAX ( 

Miles - KinkMiles, 0 ) / 10000 

Point sFromCF = BPMod . bp_MAX ( KinkCF - CustFact, 0 ) * 10 * KinkSubTot 
Over Max = BPMod . bp_MIN ( BPMod . bp__MAX ( Term - KinkMaxTerm, 0 ), 3 ) 
TotalKinkPoints = ( KinkSubtot * Over Max ) + ( KinkSubtot * 
PointsFromCF * Over Max ) 

KinkTerm = BPMod . bp_IFB ( TermlsKinky, TotalKinkPoints * 
CostPerKinkPoint, 0 ) 



'Note 

' KinkTerm is used in Final Reserve, Error Section 

» ************************************* 



i******************************************************************** 
* * * 

'Get Final Reserve 
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* * * 

' Input Parameters 

• CustFact, MinDerog, MinTrw, MinBK, MinRepo , MinFact, MinDiscount, 
' TotalLessIns, WarrAllowance , MinDisc , SpreadNum, Term, Payment 

MinDisc = BPMod. bp_IFGE ( CustFact, 2.5, 3 00, BPMod . bp^MIN ( ( 2 . 5 - 
CustFact ) * 88 + 300, 344 ) ) 

MinPercent = BPMod . bp_MAX ( BPMod . bp_MAX ( BPMod . top MAX ( MinDerog, 

MinTRW ), BPMod . bp_MAX ( MinBK, MinRepo ) ), BPMod . bp MAX ( MinFact, 

MinDiscount ) ) 

MinReserve = MinPercent * ( TotalLessIns - WarrAllowance ) 
FinalSubtot = BPMod . bp_MAX ( BPMod . bp„MAX ( MinDisc, MinReserve ), 
SpreadNum ) 

TooMuchTerm = BPMod . bp_IFG ( Term, 48, 50000, 0 ) 
PmtTooSmall = BPMod . bp IFL ( Payment, TooSmal lPmt , 50 0 0 0, 0 ) 

FinalReserve = FinalSubtot + KinkTerm + ExTerm + TooMuchTerm + 
PmtTooSmal 1 
Note 

MinDisc is used in Error Section 
MinReserve is used in Error Section 

FinalReserve is used Error Section and StrucOk var 
* * 



fad< ; * * * 

J£ ' GET OVERADVANCE AND CHECK TO DEALERS 

y~l ,***************************************** 

l^jj: •* * * 

If! 1 Input Parameters 

™j ' CB, MaxCB , INS, Reserve, ACQFEE 

ffl RE ALOA= BPMod . bp IFG ( CB , MAXCB, CB-MAXCB, 0.00) 

Che ck:ToDealer=CB- INS — RESERVE -ACQFEE -REALOA 
I OA= Round ( REALOA + 0.50, 0 ) 

Note 

RealOA is used in Error Section 
CheckToDealer is an output 
OA is used in Error Section 

Q 

'Taken care when we found realxnc 
•if Reallnc <= 0 then 

Reallnc = 1 
• end i f 



1 HINT AND ERROR SECTION 

•NEED THE FOLLOWING TO BEGIN HINTS 



DebtP= TotDebt/Reallnc 
DebtDiff= DebtP - 0.55 
LessDebt= DebtDif f *RealInc + 5 
GetDown= ( 2 0 0 0 -RealDown ) *0 . 8 
LowerPrice= ( 1000-SigDown-GetDown) / 0 . 8 



' CHANGE 

if repos > 3 then 

hintl = " Wowl " + format number ( repos , 0 ) + " repossessions!!! 
end if 
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• CHANGE 

i f repos > 2 then 

hint2 = " But... " + f ormatnumber ( repos , 0 ) + " repossessions? 
Forget the phone bill, get a blood sample, 
end. if 



if ( (PPStupid+PPTerm < -0.15) and (FinalReserve > (CB-Ins ) * 0 . 15 ) and 
(FinalReserve > 500) ) then 

hint3 = " You could do better with a shorter term, 
end if 



■ CHANGE 

if ( ( DealerGross < 0) and (Reallnc < 1400) ) then 

hint4= " Try a less expensive car for this income so you can make a 
better deal . " 
end i f 



' CHANGE 

if ( (CustFact < 0.75) and (MinRepo* (TotalLessIns-WarrAllowance) <= 
FinalReserve-200) ) then 

hint 5= 11 Try a lower price, or more down, or a shorter term. You 
might make a better deal . 
end if 



' CHANGE 

if ( (YrsTRW = 0) and (Good > 0) and (Good < 3)) then 

hint 6= " Make sure you get documentation showing the good credit. No 
rental, medical, or dental. " 
end i f 

' CHANGE 

if ((Home = 1) and (HiGood < 3 0000)) then 

hint7= " If the house is not on the credit bureau, then make sure to 
send proof of home-owner, 
end if 

' CHANGE 

■if ((Miles <> 117545) or (Price <> 6995)) then 
if (InputDiscount >= FinalReserve) then 
hint8= " It's a deal! 



if" 

hj end i f 

. M 



« CHANGE 

C3 if (Miles < 100000 and (BPMod . bp_TH IS YEAR -Car Year > 9) ) then 
jffs hint9= " Better check the miles. If the car is over 10 years old, 
^ you have to input at least 100,000 miles." 
end if 



' CHANGE 

if Miles < ( BPMod . bp THISYEAR-CarYear ) * 7 0 0 0 then 

hintl0= " Check your miles. Your input is very low, unless the last 
owner was my grandmother." 
end if 



' CHANGE 

if repos >= 5 then 

hintll= " Like a '72 Pinto. 

end i f 



1 CHANGE 

if ( (Repos > 0) and (HiDerog < 3 000) ) then 

hintl2= " Don't forget that the Hi Derog is the amount of the loan, 
not how much was charged off. 
end if 



• CHANGE 

if BK = 1 then 

hint 13= " Bankruptcy must be discharged, 
end if 
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' CHANGE 

if ( (YrsTRW == 0) and (Good > 2)) then # 

hintl4= " You can't have more than 2 good credit items that aire not 
on the bureau . " 
end if 



if ( (Job > 2) and (Resid > 2) and (Job = Resid) ) then 
hintl5= " If this is a military deal, don't forget to send a 
completed Mac allotment. Must toe rank of E3 or higher, 
end if 



• CHANGE 

if Support > 0 then 

hintl6= " Remember not to count Family Support accounts as Good or 
Derog . " 
end i f 



'CHANGE , , 

if ( ( Deo t Part < 0) and (LessDebt < 40) and (FmalReserve >= 
BPMod . bp_MAX (MinDisc , MinReserve) + KinkTerm + ExTerm + 10 0) and 
(Payment-LessDebt > 170)) then _ 

hintl7= " You can make a better deal if you use Price and Down to get 
the payment about " + f ormat number (Less Debt , 0 ) + " dollars lower, 
end if 



1 CHANGE 

if ( (DebtPart < 0) and (LessDebt > 40) and (FmalReserve >= 
BPMod. bp_MAX (MinDisc, MinReserve) + KinkTerm + ExTerm + 100) and 
(Payment-LessDebt > 170) ) then 

hintl8= " You could make a lot better deal if the payment was + 
formatnumber (LessDebt , 0) + " dollars lower. Try a less expensive 
car . " 
end if 



■ CHANGE 

if GetDown+SigDown < = 10 0 0 then 

hint 19= " And lower the Price by about " + formatnumber < LowerPr ice , 
0) + " dollars. " 
end i f 



' CHANGE 

if ( (SigDown >= 850) and (SigDown < 1000) and (FmalReserve >= 
BPMod . bp_MAX (MinDisc , MinReserve) + KinkTerm + ExTerm + 100)) then 

if RealDown < 2 0 00 then 

hint20= " You might do better if you get 2000 dollars down. " 
+hintl9 

else 

hint20= " You might do better if you lower the Price by about " 
+ formatnumber ( ( 10 0 0 -SigDown) /0 . 8 , 0 ) + " dollars. 

end i f 
end if 



1 CHANGE 

hint22= " Try putting down " + dollar String ( OA, 0 ) + " more, or 
lower the price." 

if ( (CustFact > 1.0000000000) and (OA > 0)) then 

hint21= " Try putting down " + formatnumber ( OA , 0 ) + " dollars 
more, or reserve the O-A, then:" 
else if (OA > 0) then 
hint21= "" 
hint2 5=hint22 
hint 8= 
end if 
end i f 



if (CustFact < 1.000000000) then 

hint23= " You can't reserve the 
has to be over 1 . " 
else 



O-A, because the Customer Factor 
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hint23= 
end if 

'if (vClass = 5) then 

hint 2 4= " You can't reserve the O-A, because the Car Class cannot 
be 5 . " 
' else 

hint24= " " 
1 end if 



' [ERROR CHECKING] 

DeathErr4 = BPMod . bp_IFG ( KinkTerm, ( CB - Ins ) * . 1, 4, 0 ) 
DeathErr3 = BPMod.bp_IFL ( Payment, TooSmallPmt, 3, DeathErr4 ) 
DeathErr2 = BPMod . bp IFGE ( ExTerm, 0.25 * ( CB - Ins ), 2, DeathErr3 

DeathErrl = BPMod . bp_IFG ( Term, 48, 1, DeathErr2 ) 



Err 9 = BPMod . bp IFL ( FCox,0,9,10 ) 

Err8 = BPMod . bp_IFG ( KinkTerm, { CB - Ins ) 
'Err 7 = BPMod . bp IFG ( CB, MAXCB , 7, Err 8 ) 

if (CB-MAXCB <= 0.00) then 
Err7 = Err8 

if (CB-MAXCB < 3 00) then 
Err7 = 12 

if S (CB-MAXCB <= 1000) then 
inclusive ] 

Err7 = 7 
else 

Err7 = 11 
end if 
end if 
end i f 

Err 6 = BPMod . bp IFL ( Reserve, 3 00, 6, Err7 ) 

Err5 = BPMod . bp IFL ( Reserve, . 10 * ( CB - Ins 

Err6 ) 



.02, 8, Err9 ) 



[o/a is between 300 and 1000, 



WarrAllowance ) , 5, 



ErrCode = BPMod . bp_IFG ( FinalReserve , CB, DeathErrl, Err 5 ) 
Errs t r = Err Lookup ( ErrCode ) 



BP 

Errstr = ErrLookup (ErrCode) 
NoDollarOA=FormatNumber (REALOA, 0) 



-Added for Stand Alone 



i f ( REALOA = 0.00) then 

OAStr = " " 
else 

OAStr = " $ " Sc Forma tNumber (OA, 0) 
end if 



* ★ * 

1 Structure OK and Amount OK 
,**********************************^ 

•*• * * 

' Input Parameters 

' InputDiscount , FinalReserve, CB, MAXCB 

StructOK = InputDiscount >= FinalReserve 
AMTOK = CB <= MAXCB 



•Note 
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Final Answer- -> StrucOK & AmtOK 

* •* * 

Set BPMocL = Nothing 

If Err . Number <> 0 then 

SystemError = Err . Description 
End if 

1 %> 
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' <%Templ ate=Cal i f orni a%> <%Versi on=04 . 30 . 2001%> 

function dollarString(no, n) 

if (no >= 0.00) and (no <= 1.001) then 

dollarstring = formatnumber(no, n) + 11 dollar " 
else 

dollarstring = formatnumber(no 5 n) + " dollars " 
end if 
end function 



ErrDisp = 

function Lookupins ( vAmt, vCol ) 
if vAmt < 0 then 

Lookupins = 0 



else 



Select Case vCol 
Case 1 
select case true 



case 
Case 
Case 
Case 
Case 
Case 
Case 
case 
Case 
Case 
case 
Case 
case 
Case 
Case 
case 
case 
Case 
case 
Case 
Case 
Case 
Case 
Case 
Case 
case 
Case 
Case 
Case 
case 
Case 
Case 
Case 
Case 
Case 
case 
Case 



vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 
vAmt 



>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 

>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>= 
>- 



0 and vAmt <= 500 ) X 
501 and vAmt <= 750 ) 
751 and vAmt <= 1000 ) 



1001 and vAmt <= 1200 
1201 and vAmt <= 1400 
1401 and vAmt <= 1600 
1601 and vAmt <= 1800 
1801 and vAmt <= 2000 
2001 and vAmt <= 2200 
2201 and vAmt <= 2400 
2401 and vAmt <= 2600 
2601 and vAmt <= 2800 
2801 and vAmt <= 3000 
3001 and vAmt <= 3200 
3201 and vAmt <= 3400 
3401 and vAmt <= 3600 
3601 and vAmt <= 3800 
3801 and vAmt <= 4000 
4001 and vAmt <= 4200 
4201 and vAmt <= 4400 
4401 and vAmt <= 4600 
4601 and vAmt <= 4800 
4801 and vAmt <= 5000 
5001 and vAmt <= 5200 
5201 and vAmt <= 5400 
5401 and vAmt <= 5600 
5601 and vAmt <= 5800 
5801 and vAmt <= 6000 
6001 and vAmt <= 6500 
6501 and vAmt <= 7000 
7001 and vAmt <= 7500 
7501 and vAmt <= 8000 
8001 and vAmt <= 8500 
8501 and vAmt <= 9000 
9001 and vAmt <= 9500 
9501 and vAmt <= 10000 



X = 
X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

X = 

) x 



End Select 

case 2 
select 
Case ( 
Case ( 
Case ( 



10001 and vAmt <= 1000000 ) X = 



0 

501 
751 
1001 
1201 
1401 
1601 
1801 
2001 
2201 
2401 
2601 
2801 
3001 
3201 
3401 
3601 
3801 
4001 
4201 
4401 
4601 
4801 
5001 
5201 
5401 
5601 
5801 
6001 
6501 
7001 
7501 
8001 
8501 
9001 
9501 
10001 



case 
vAmt 
vAmt 
vAmt 



true 

>= 0 and vAmt < 501 ) X = 173 
>= 501 and vAmt < 751 ) X = 209 
>= 751 and vAmt < 1001 ) X = 250 
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Case ( 


vAmt 


>= 


1001 


1 

and 


vAmt 


< 


1201 


) X = 


-)7Q 

lio 


case ( 


vAmt 


>= 


1201 


and 


vAmt 


< 


1 A A1 

1401 


) x = 


o04 


Case ( 


vAmt 


>= 


-i a a-i 

1401 


and 


vAmt 


< 


lbOl 


) X = 




Case ( 


vAmt 


>= 


1601 


_ _ _j 
and 


vAmt 


< 


1 OA1 

1801 


) x = 


7.AA 


Case ( 


vAmt 


>= 


1801 


i 

and 


vAmt 


< 


2001 


) x = 


jbb 


case ( 


vAmt 


>= 


2001 


i 

and 


vAmt 


< 


2201 


) X = 


3 OA 

iyo 


Case ( 


vAmt 


>= 


2201 


_ _ _i 
and 


vAmt 


< 


2401 


; X = 


4oy 


Case ( 


vAmt 


>= 


2401 


and 


vAmt 


< 


2601 


) X = 


A 3 1 
431 


Case ( 


vAmt 


>= 


2601 


and 


vAmt 


< 


2801 


) X = 


A AC 

44b 


Case ( 


vAmt 


>= 


2801 


i 

and 


vAmt 


< 


3001 


) X = 


ACT 

4b/ 


Case ( 


vAmt 


>= 


3001 


and 


vAmt 


< 


3201 


) X = 


aq a 
48b 


Case C 


vAmt 


>= 


3201 


and 


vAmt 


< 


""> A A1 

3401 


) X = 


r r\r\ 

boy 


Case ( 


vAmt 


>= 


3401 


and 


vAmt 


< 


3501 


) X = 




Case ( 


vAmt 


>= 


3601 


and 


vAmt 


< 


ioOl 


) X = 


KA R 
j4 j 


Case ( 


vAmt 


>= 


3801 


and 


vAmt 


< 


4001 


) X = 


Db4 


Case ( 


vAmt 


>= 


A A A1 

4001 


and 


vAmt 


< 


4201 


) X = 


bob 


Case ( 


vAmt 


>= 


4201 


and 


vAmt 


< 


A AC\-\ 

4401 


) X = 


CQQ 

jyy 


Case ( 


vAmt 


>- 


A A f\t 

4401 


and 


vAmt 


< 


A CA1 

4b01 


) X = 


bzo 


Case ( 


vAmt 


>= 


a /~ai 

4601 


and 


vAmt 


< 


A OA1 

4801 


) x = 


Djj 


Case ( 


vAmt 


>= 


4801 


_ ^ _j 
and 


vAmt 


< 


dOOI 


J A — 


Djj 


Case ( 


vAmt 


>= 


5001 


and 


vAmt 


< 


bZOl 


J A = 


Of L 


Case ( 


vAmt 


>= 


5201 


and 


vAmt 


< 


r a ai 

5401 


) X = 


b8b 


Case ( 


vAmt 


>= 


5401 


and 


vAmt 


< 


5601 


) X = 


703 


Case ( 


vAmt 


>= 


5601 


and 


vAmt 


< 


5801 


) X = 


721 


case ( 


vAmt 


>= 


5801 


and 


vAmt 


< 


6001 


) X = 


738 


Case ( 


vAmt 


>= 


6001 


and 


vAmt 


< 


6501 


) X = 


783 


Case ( 


vAmt 


>= 


6501 


and 


vAmt 


< 


7001 


) x = 


826 


case ( 


vAmt 


>= 


7001 


and 


vAmt 


< 


7501 


) x = 


873 


Case ( 


vAmt 


>= 


7501 


and 


vAmt 


< 


8001 


) x = 


919 


Case ( 


vAmt 


>= 


8001 


and 


vAmt 


< 


8501 


) X = 


C\f~—} 

967 


case ( 


vAmt 


>= 


8501 


and 


vAmt 


< 


9001 


) X = 


1015 


Case ( 


vAmt 


>= 


9001 


and 


vAmt 


< 


9501 


) x = 


1 ACA 

1060 


Case ( 


vAmt 


>= 


9501 


and 


vAmt 


< 


10001 


) x = 


1 1 A7 
110/ 


Case ( 


vAmt 


>= 


10001 and vAmt <= 1000000 ) X 


= 1107 


End Select 


















select 


. case 


true 














Case ( 


; vAmt 


>= 


0 and vAmt < 


501 ) x 




0.005605 


case ( 


; vAmt 


>= 


501 and vAmt < 751 ) 


X = 


0.005605 


Case ( 


[ vAmt 


>= 


751 and vAmt < 1001 ) 


X = 


0.005605 


case ( 


; vAmt 


>= 


1001 


and 


vAmt 


< 


1201 


) x = 


0.005605 


Case ( 


[ vAmt 


>= 


1201 


and 


vAmt 


< 


1401 


) X = 


r\ A AO "1 "7 

0.00817 


Case ( 


; vAmt 


>= 


1401 


and 


vAmt 


< 


1601 


) x = 


A A AO 1 "7 

0.00817 


Case ( 


[ vAmt 


>= 


1601 


and 


vAmt 


< 


1801 


) x = 


A AAO "1 ~7 

0 . 00817 


Case ( 


; vAmt 


>= 


1801 


and 


vAmt 


< 


2001 


) x = 


A AAO 1 1 

0.00817 


Case ( 


; vAmt 


>= 


2001 


and 


vAmt 


< 


2201 


) x = 


0.00817 


Case ( 


; vAmt 


>= 


2201 


and 


vAmt 


< 


2401 


) x = 


0.01083 


Case ( 


; vAmt 


>= 


2401 


and 


vAmt 


< 


2601 


) x = 


0.01083 


Case ( 


I vAmt 


>= 


2601 


and 


vAmt 


< 


2801 


) X = 


0.01083 


Case ( 


[ vAmt 


>= 


2801 


and 


vAmt 


< 


3001 


) X = 


0.01083 


Case ( 


[ vAmt 


>= 


3001 


and 


vAmt 


< 


3201 


) x = 


0.01083 


case ( 


I vAmt 


>= 


3201 


and 


vAmt 


< 


3401 


) X = 


0.01349 


Case ( 


[ vAmt 


>= 


3401 


and 


vAmt 


< 


3601 


) x = 


0.01349 


case i 


[ vAmt 


>= 


3601 


and 


vAmt 


< 


3801 


) X = 


0.01349 


Case ( 


[ vAmt 


>= 


3801 


and 


vAmt 


< 


4001 


) x = 


A A1 "5 A A 

0.01349 


Case ( 


[ vAmt 


>= 


4001 


and 


vAmt 


< 


4201 


) x = 


U . U134y 


Case ( 


[ vAmt 


>= 


4201 


and 


vAmt 


< 


4401 


) X = 


0.01349 


Case ( 


[ vAmt 


>- 


4401 


and 


vAmt 


< 


4601 


) X = 


0.015067 


Case { 


I vAmt 


>= 


4601 


and 


vAmt 


< 


4801 


) x = 


0.015067 


Case i 


' vAmt 


>= 


4801 


and 


vAmt 


< 


5001 


) X = 


0.015067 


Case ( 


[ vAmt 


>= 


5001 


and 


vAmt 


< 


5201 


) x = 


0.015067 


Case ( 


[ vAmt 


>= 


5201 


and 


vAmt 


< 


5401 


) X = 


0.015067 


Case l 


1 vAmt 


>= 


5401 


and 


vAmt 


< 


5601 


) x = 


0.016777 
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vAmt 


>= 


5601 and vAmt 


< 


c qai 


S V — 

) x - 


A 
U . 


01 fi777 


vAmt 


>= 


5801 and vAmt 


< 


bUUl 


~\ v — 
J X - 


n 


01 6777 


vAmt 


>= 


6001 and vAmt 


< 


DjUI 


J X - 


A 

u . 


01 6777 


vAmt 


>== 


6501 and vAmt 


< 


7001 


) x = 


0. 


018297 


vAmt 


>= 


7001 and vAmt 


< 


7501 


) x = 


0. 


018297 


vAmt 


>= 


7501 and vAmt 


< 


8001 


) x = 


0 


019627 


vAmt 


>= 


8001 and vAmt 


< 


8501 


) x = 


0 


019627 


vAmt 


>= 


8501 and vAmt 


< 


9001 


) x = 


0 


020767 


vAmt 


>= 


9001 and vAmt 


< 


9501 


) x = 


0 


020767 


vAmt 


>= 


9501 and vAmt 


< 


10001 


) x = 


0 


020767 


vAmt 


>= 


10001 and vAmt <- 1000000 ) X 




0.020767 



irfi 



And vAmt < 
.5 And vAmt 



0.5 ) 

< 1 ) 
2.5 ) 

< 4.5 ) 



X = 

X = 

X = 

X = 

X = 



0 

0.5 

1 

2.5 
4.5 



case 
Case 
Case 
Case 
Case 
Case 
Case 
case 
Case 
Case 
Case 

End Select , 

case Else ErrDisp = "Expression Error on INS lookup - column 

selected: " & vCol 

End Select 
Lookupins = X 
end if 
end function 

function Lookup J obTable ( vAmt, vCol ) 

if vAmt < 0 then 
I LookupJobTable = 0 

1 else 

select Case vCol 
Case 1 
select Case True 
Case ( vAmt >= 0 
Case ( vAmt >= 0 
Case ( vAmt >= 1 And vAmt < 
case ( vAmt >= 2.5 And vAmt 
Case (vAmt >= 4.5) 
end select 
case 2 
Select Case True 
Case ( vAmt >= 0 
case ( vAmt >= 0 
Case ( vAmt >= 1 
Case ( vAmt >= 2 
case (vAmt >= 4.5) 
end Select 
Case 3 
select Case True 
Case ( vAmt >= 0 And vAmt < 
Case ( vAmt >= 
Case ( vAmt >= 
Case ( vAmt >= 
Case (vAmt >= 4.5) 
end select 
case 4 
select Case True 
Case ( vAmt >= 0 And vAmt < 
Case ( vAmt >= 
Case ( vAmt >= 
Case ( vAmt >= 
case (vAmt >= 4.5) 
end Select 

Case Else ErrDisp = "Exp 
selected: ,? & vCol 

End Select 
LookupJobTable = x 
end if 
end function 



And vAmt < 
,5 And vAmt 
And vAmt < 
.5 And vAmt 



0.5 ) 


X = 


0.11 


< 1 ) 


X = 


0.3515 


2.5 ) 


X = 


0.685 


< 4.5 ) 


X = 


2.68 


X = 


10 



0.5 And vAmt 
1 And vAmt < 
2.5 And vAmt 



0 


5 ) 


X = 


0. 


483 


< 


1 ) 


X = 


0. 


667 


2 


5 ) 


X = 


1 


33 


< 


4.5 ) 


X = 


3 


66 






X = 


0 





0.5 And vAmt 
1 And vAmt < 
2.5 And vAmt 



0.5 ) 

< 1 ) 
2.5 ) 

< 4.5 ) 



x 
x 
x 
x 
x 



0.5 
0.5 
1.5 
2 

999995.5 



ression Error on JobLookup - column 
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function LookupCFScalerTable( vAmt, vCol ) 
if vAmt < 0 then 

LookupCFScalerTable = 0 

else 

Select Case vCol 
Case 1 
Select Case True 

Case ( vAmt >= 0 And vAmt < 1 ) x = 0 
Case ( vAmt >= 1 And vAmt < 2 ) X = 1 

Case ( vAmt >= 2 And vAmt < 2.75 ) X = 2 
Case ( vAmt >= 2.75 And vAmt <3.5)X=2.75 
Case (vAmt >= 3.5) X = 3.5 

End select 
Case 2 
Select Case True 

Case ( vAmt >= 0 And vAmt < 1 ) X = 0.5 

Case ( vAmt >= 1 And vAmt < 2 ) X = 0.7 

Case ( vAmt >= 2 And vAmt < 2.75 ) X = 0.96 

Case ( vAmt >= 2.75 And vAmt < 3.5 ) X = 1.08 

Case (vAmt >= 3.5) X = 1.28 

End select 
I-* case 3 

O Select Case True 

Q Case ( VAmt >= 0 And vAmt < 1 ) X = 0.2 

% Case ( vAmt >= 1 And vAmt < 2 ) X = 0.18 

T;. Case ( vAmt >= 2 And vAmt < 2.75 ) X = 0.16 

w Case ( vAmt >= 2.75 And vAmt < 3.5 ) X = 0.32 

P case (vAmt >= 3.5) X = 0.16 

v?. End Select 

Case Else ErrDisp = "Expression Error on CFS lookup - Column 
ys selected: " & vCol 
« End Select 

□ LookupCFScalerTable = x 
m end if 

•U end function 

■43 function LookupTermTable( vclass, vCol ) 

□ if vclass < 0 then 

m LookupTermTable = 0 

■ iW else 

Select Case vCol 

Case 1 
Select Case vclass 
case 0 x = 0 
case 1 x = 1 
case 2 X = 2 
Case 3 X = 3 
Case 4 X = 4 
Case 5 X = 5 
End Select 

Case 2 
select Case vclass 
Case 0 X = 150000 
Case 1 X = 150000 
Case 2 X = 140000 
Case 3 x = 140000 
case 4 X = 110000 
Case 5 X = 110000 
End Select 

Case 3 
select Case vclass 
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Case 0 X = 7 
Case 1 X = 7 
Case 2 X = 6 
case 3 X = 6 
case 4 X = 5 
Case 5 X = 5 
End Select 
Case 4 
Select Case vClass 
Case 0 X = 6 
case 1 X = 6 
Case 2 X = 5 
Case 3 X = 5 
Case 4 X = 3 
Case 5 X - 3 
End Select 

Case 5 

select case vClass 
Case 0 X = 110000 
Case 1 X = 110000 

Case 2 X = 100000 

Case 3 x = 100000 

Case 4X= 70000 
U Case 5 X = 70000 

H End Select 

-SI Case 6 

^ Select Case vClass 

£ Case 0 x = 9 

111 Case 1 X = 9 

m Case 2 X = 7 

fl case 3 x = 7 

case 4 X = 5 
01 case 5 X = 5 

End select 
n Case 7 

r* Select Case vClass 

H Case 0 X = 150000 

O Case 1 X = 150000 

ifi Case 2 X = 130000 

.2 Case 3 X = 130000 

w case 4 X = 110000 

ify Case 5 X = 110000 

End Select 
Case 8 

Select Case vClass 

Case 0 X = 1.4 

Case 1 x = 1.3 

Case 2 X = 1.2 

Case 3 X = 1.1 

case 4 x = 1 

Case 5 X = 0.9 

End Select 
Case 9 

Select Case vClass 

Case 0 X = 1800 

Case 1 X = 1750 

Case 2 X - 1500 

case 3 X = 1100 

Case 4 X = 0 

Case 5 X = 0 

End select 
case 10 

select case vClass 
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Case 0 X = 0.1 
Case 1 x = 0.1 
Case 2 X = 0.1 
Case 3 X = 0.05 
case 4 X = 0.05 
Case 5 X = 0.05 

EPd case C Else ErrDisp = "Expression Error on term lookup - Column 

selected: " & vCol 

End select 
LookupTermTable = x 
end if 
end function 

fUnC rf 0 ; T e?51 k < P l Pr thS e E?rDisp = "term cannot be less than 1 - Current TERM is: " & 

v/Tprm 

"tfrm rannnr hp areater than 48 - Current TERM is: 



m 
Q 

*0 



if vTerm > 48 then ErrDisp = 


& vTerm 












Select Case vTerm 




Case 


1 


LookupApr 




0. 


12 


Case 


2 


LookupApr 




0. 


1596 


Case 


3 


LookupApr 


— 


0. 


1791 


Case 


4 


LookupApr 


- 


0. 


1905 


Case 


5 


LookupApr 


— 


0. 


1978 


Case 


6 


LookupApr 




0. 


2029 


Case 


7 


LookupApr 


= 


0. 


2064 


Case 


8 


LookupApr 


— 


0. 


2091 


Case 


9 


LookupApr 


= 


0. 


2111 


Ctk <^p 


10 


LookupApr 


= 


0. 


2126 


Case 


11 


LookupApr 


— 


0. 


2137 


Case 


12 


LookupApr 


= 


0. 


2146 




13 


LookupApr 


= 


0. 


2152 


rasp 


14 


LookupApr 


— 


0. 


2157 


Case 


15 


LookupApr 


= 


0. 


216 


Case 


16 


LookupApr 




0. 


2162 


Case 


17 


LookupApr 




0. 


2164 


Case 


18 


LookupApr 




0. 


2164 


Case 


19 


LookupApr 




0. 


2164 


Case 


20 


LookupApr 




0. 


,2164 


Case 


21 


LookupApr 




0. 


.2163 


Case 


22 


LookupApr 




0. 


.2161 


case 


23 


LookupApr 




0. 


.2159 


case 


24 


LookupApr 




0, 


.2157 


Case 


25 


LookupApr 




0, 


.2155 


Case 


26 


LookupApr 




0, 


.2152 


Case 


27 


LookupApr 




0 


.2115 


Case 


28 


LookupApr 




0 


.2146 


Case 


29 


LookupApr 




0 


.2144 


case 


30 


LookupApr 




0 


.2141 


Case 


31 


LookupApr 




0 


.2137 


Case 


32 


LookupApr 




0 


.2134 


Case 


33 


LookupApr 




0 


.2131 


case 


34 


LookupApr 




0 


.2127 


Case 


35 


LookupApr 




0.2124 


Case 


36 


LookupApr 




0 


.212 


case 


37 


LookupApr 




0 


.2117 


Case 


38 


LookupApr 




0 


.2113 


Case 


39 


LookupApr 




0 


.2109 


Case 


40 


LookupApr 




0 


.2105 


Case 


41 


LookupApr 




0 


.2102 


Case 


42 


LookupApr 




0 


.2098 


Case 


43 


LookupApr 




0 


.2094 
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Case 44 LookupApr = 0.209 

Case 45 LookupApr = 0.2087 

Case 46 LookupApr = 0.2083 

Case 47 LookupApr = 0.20779 

Case 48 LookupApr = 0.2075 

Case Else ErrDisp = "Error on APR lookup - TERM is: & vTerm 
End Select 
end function 



, ****** ***** ******* ******** ****** ******************************* 
1 function ErrLookup 

i iy , x x ic ic * * * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * * * * * * * * * * * * * ****** * ****** 

function ErrLookupC vErr) n 

if vErr < 0 then ErrDisp = "Error on ERR lookup - ERR is: & vErr 
if vErr >= 99 then 

ErrLookup = "" 

else 

select Case vErr 
Case 0 ErrLOOkup = "DEAL STRUCTURE IS UNACCEPTABLE 

hint = "Deal structure is unacceptable. + hmtl + You will 
need more down and a lower price, or maybe a really inexpensive car. " + hintll + 
Uhintl7 + hintl8 + hint20 



^ Case 1 ErrLookup = "MAXIMUM TERM 48 MONTHS" 



hint = "YOU CAN'T GO LONGER THAN 48 MONTHS." 

Case 2 ErrLookup = "NEED SHORTER TERM!" 

hint = "Need shorter Term!" 

Case 3 ErrLOOkup = "PAYMENT MUST BE HIGHER THAN $140!" 

hint= "The payment is too low. This is a car, not a couch. 

Case 4 ErrLOOkup = "TRY 28 MONTH OR SHORTER TERM" 

Case 5 ErrLOOkup = "MINIMUM DISCOUNT 10% OF AMOUNT FINANCED LESS INS 
m hint= "The discount has to be at least 10 percent." 

vv Case 6 ErrLookup = "minimum discount $300" 
1. hint = "Minimum discount is 300 dollars" 

Q Case 7 ErrLOOkup = "AMOUNT FINANCED IN EXCESS OF MAX ALLOWED BY:" 
Ma hi nt — " " 

h +hint25+hint21+hint23+hint24+hint8+hint20+hintl+hint2+hint3+ hint4 + hint5 +hint6+ 
t hint7 + hint9 + hintlO + hintl2 + hintl3 + hintl4 + hintlS + hintl6 + hmtl7 + 
*f hintl8 

Q case 8 ErrLookup = "suggest 28 month max term" 

fy hint= "You can make a better deal if you lower the term to 28 

months." 

case 9 ErrLookup = "cox is making customer factor lower 

hint = "Co-signer is making the customer factor lower. Please check 
to see if the co signer is actually the buyer." 

Case 10 ErrLookup = "" , , . , . , . r , . r _ 

hint = hint8+hint20+hintl+hint2+hint3+ hmt4 + hint 5 +hmt6+ hmt7 + 
hint9 + hintlO + hintl2 + hintl3 + hintl4 + hintlS + hintl6 + hintl7 + hintl8 

Case 11 ErrLOOkup = "AMOUNT FINANCED IN EXCESS OF MAX ALLOWED BY:" 

hint = "" + hint22 
Case 12 ErrLOOkup = "AMOUNT FINANCED IN EXCESS OF MAX ALLOWED BY: 

hint = "You need to put down " + dollarString(OA,0) + " more." 

End Select 

end if 
End Function 
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VEHICLE CLASSIFICATION SHEET 11/2000 



IMPORTS 

ACURA 

Integra Man Trans 3 

Legend 86-90 5 

Vigor 3 

All Others 1 

DAEWOO 

4 Dr + Auto 3 

All Others 4 

HONDA 

Civic 92-newer 4dr+Auto "S" 
Civic 92-newer 4dr+Man.. 1 

Other Civic Automatic 2 

Other Civic Man Trans.... 3 

CRX/Prelude 3 

Accord 89&Older 3 

Accrd 91-94 LX 4dr+Auto"S" 
All Others inc Accrd Wgn. 1 

HYUNDAI 

Scoupe (All) 5 

Other 97+newer 4 

All Others 3 

ISUZU 

Pickups 1 

pq Trooper/Rodeo 4dr+Auto. 2 
•S Trooper/Rodeo Other 3 

All Others 5 

€exus 

Itf All 3 

MAZDA CARS 

SI MX-6 5 

ff\ Miata 5 

T Protege 94-older 4 

h RX7 5 

p 929 91 -older 4 

C All Others 3 

Nil AZDA TRUCKS 

jjJf Pickups Auto+Xcab 2 

O Navajo 4 

fU All Others 3 

MITSUBISHI 

Galant 94 & newer. 3 

Montero 3 

Pickups 1 

All Others 5 

NISSAN CARS 

Altima 93-95 w Auto 2 

Maxima 89&newer Auto... 2 

Sentra 92-older "S" 

Sentra 93-newer 1 

240SX 4 

300 ZX 5 

All Others 3 

NISSAN TRUCKS 

Pathfinder 

4 Dr + Auto 1 

Pickups "S" 

Quest 2 

All Others 3 



VEHICLES 10 YRS OLD OR MORE: 

Add 100,000 miles to odometer if a 5 

digit odometer. 6 digit odometer 
vehicles must be booked with at least 
100,000 miles. 



IMPORTS (Cont) 

TOYOTA CARS 

Camry 92-93 Auto "S" 

Celica/Cressida/MR2.... 3 

Corolla 93-94 Auto "S" 

Supra 5 

All Others 1 

TOYOTA TRUCKS 

Pickups "S" 

4-Runner 90-91 

V6+4dr+Auto "S" 

Vans 89 & older 4 

All Others 1 

VOLKSWAGEN 

Jetta/Passat 4 Dr 3 

All Others 5 

DOMESTICS 

BUICK 

Quad 4, Tech 4 or 5 

Regal 92&newer w 3.8L. 2 
Other 92&newer w 3.8L... 3 
Century/Skylark/Regal.... 3 
All Others 4 

CHEVROLET 

Quad 4, Tech 4 or 2.8L... 5 

Camaro 5 

Corvette 5 

Corsica/Caprice 4 

All Others 3 

CHEVROLET/ 

GMC TRUCKS 

Astro/Safari 2WD 1 

Blazer 4dr+4.3L 95+ 2 

S10 Blazer 2dr All 5 

C-Series w Auto 1 

C-Series Other.,... 2 

K-5 Blazer/Tahoe/Yukon.. 1 

Lumina Van 5 

S10X-Cab4.3L+Auto 1 

Suburban 2 

All Others 3 

CHRYSLER 

Cirrus 3 

Concorde 4 

Town & Country 5 

All Others 5 

DODGE/PLYMOUTH CARS 

Turbos/Convertibles 5 

Intrepid 4 

Neon 4 dr + Auto 3 

Shadow/Sundance 3 

Spirit/Acclaim 3 

Stratus/Breeze 3 

All Others 5 

DODGE / PLYMOUTH TRUCKS 
Caravan/Voyager 

96-newer 2WD 3 

Caravan A/oygr Other 5 

94+ Trucks V-8 2 

Dakota V6/V8 2 

All Others 3 



I CAM 



110.00 | 



DOMESTICS 

FORD CARS 

Turbo/Supercharger 5 

Escort 4 

Mustang 94 & newer 2 

Taurus Sedan 95 & older. 5 

Taurus Wagon 5 

T-Bird 90-93 2 

All Others 3 

FORD TRUCKS 

Aerostar4X4 5 

Explorer 4 Dr + Auto 2 

Explorer Other 4 

F Series Auto + V-8 1 

F Series Other 2 

Ranger X Cab 

6 cyl + Auto 1 

Ranger 6 cyl + Auto 2 

All Others 3 

GEO 

Prism 4dr Sedan w Auto.. 1 
Prism 4dr Sedan w Man... 2 

Tracker 5 

All Others 3 

JEEP 

CJ & Wrangler 6 cyl 1 

Other CJ/Wrangler 3 

Cherokee 4dr+4.0L+Auto 3 

Grand Cherokee 3 

All Others 5 

LINCOLN 

Towncar 4 

All Others 5 

MERCURY 

Capri 5 

Tracer 4 ^ 

Sable Wagon 5 Cm 

Sable Sedan 95 & older. . .5 § 
All Others 3 *J 



OLDSMOB1LE 

Quad 4, Tech 4 5 

Silhouette 5 

All Other 3.8L or V8 4 

AH Other 4 or 6 cyl 3 

PONTIAC 

Quad 4, Tech 4 5 

Firebird 5 

Transport 5 

All Others 3 

SATURN 

All 3 



fa 
O 

c« 
H 

as 
w 

H 

O H 

fa 

O < 



fa 



u 
< 



fa 



ADDITIONAL POLICIES 

1. ANY VEHICLE NOT LISTED SHALL BE 
CONSIDERED CLASS 5. 

2. DO NOT ADD FOR LOW MILES, OR "SOFT 
ADDS." 



WESTLAKE WILL NOT ADVANCE FOR THE 
FOLLOWING KELLEY ADDS: PREMIUM SOUND, 
PREMIUM WHEELS, ABS, DUAL AIR BAGS, 
INTEGRATED PHONE, UPGRADED TOPS, BUMPER, 
OR PAINT, WIDE/OVERSIZE TIRES, TOW T 
PACKAGE, GRILLE GUARD, WINCH, 
COMMERCIAL TRUCK ADDS & ANY ITEM NOT IN 
WORKING ORDER. 



3. ANY VARIANCE FOUND BETWEEN ACTUAL & 
REPRESENTED VALUE OF THE VEHICLE MAY 
RESULT IN DEALER REPURCHASE. 



CA EXPRESSIONS WITH COMMENTS . txt 
<%Templ ate=Cal i f orni a%> <%ve rsi on=ll . 01 . 2001%> 
California Expression Template 
Modification Date : Nov 16, 2000 
Reason: converted from Delphi to VB Script 
Modification Date : Nov 17, 2000 

Reason: Added code for COM, modified for Stand Alone BP 
Modification Date : Nov 22, 2000 a 
Reason: Added Total of Payments calculation 
Modification Date : 3an 25, 2001 
Reason: Added insuarnce cap beyond $10,000.00 
Modification Date : Feb 13, 2001 
Reason: Repaired wizard re o/a, etc 

Modification Date : Feb 26, 2001 - Uohn Sun M ^ nilo arw4 <- ran 

Reason: Added error handling - when error occurs, system need to continue and trap 

all the error messages. 

Modification Date : Mar 26, 2001 - Mike Duke 

Reason: Repaired ins Lookup Table to account for all Carryback possibilities. 
Modification Date : Apr 03, 2001 
Reason: Made minimum Total income = $1.00 
Modification Date : Apr 09, 2001 a 

Reason: Move Big Mile Hit expressions in proper order for proper recalc when 
opening saved deal 

Modification Date : Apr 30, 2001 
Reason: Fix error in Job Lookup Table 
Modification Date : May 16, 2001 
Reason: Fix error in CF Scaler Lookup 
Modification Date : May 23, 2001 
Reason: Allow Class 5 for reserve deals 
Modification Date : Sept 10, 2001 
Reason: Re-sequence MinBk Module 
Modification Date : Nov 1, 2001 
Reason: Complete resorting of expressions 
Added for Stand Alone 

y BP 

£3 

; on Error Resume Next 
Set BPMod = createObject("BPfunctionsModule.BPFunctions ) 



' [CONSTANTS] 

'System Error 
DIM SystemError 
SystemError = 
Acqfee=100 
Tradescaler=0.70 

HCBAmtFin = 8000 
HCBScaler = - 0.00015 

StupidNum = 8 
StupidTerm = 17 

FTBINC = 1 
FTBPMTRati O = 1 
FTBCB = 1 
FTBPhBill = 2 
FTBDOWn =0.20 
FTBSpouse = 2 
FTBResi d = 3 
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FTBJob = 3 

STHitl = 0.9 
STHit2 =0,6 
STScalerl = - 0.10 
STScaler2 = - 0.20 

SpreadNumScaler =0.50 

optimal CB = 5800 
Allowvariance = 1700 
Optimal Points = 0.13 

CostPerKinkPoint = 2 
KinkAge = 8 
KinkMiles = 120000 
KinkCF =1.70 
KinkMaxTerm = 28 

CFTRWScaler =0.75 

CF3obScaler =0.90 
U CFResidScaler =0.60 
jr CFHiGoodScaler = 0.90 
ScFBKScaler = 1.00 
^ CFHomeScaler =0.80 
4* CFlncScaler = 0.075 
jUj CFDebtScaler = 1.00 

"f I FreeGetNone = 1.75 
^ FreeGetAll =2.30 
yf SBGetNone =2.75 
, SBGetAll = 3.25 

H BMHi Limit = 6000 
H : BMLowLimit = 2000 

if* MCBHi Mi 1 es = 140000 

Jr MCBHi Mi lesRange = 10000 

U MCBMaxins = 1000 

fs jj 

SDDollarDown = 1500 
SDPercentDown =0.30 
SDScaler = 0.80 
SDEquityMult =0.50 

BKStrong =0.5 
BKGood =0.2 
BKinc =0.2 
BKSpouse = 0.05 
BKHiGood =0.2 
CRStart = 0.15 
CRCountAll =0.20 

DATerm = 30 
DAScaler =0.90 
MinRent = 250 
SpreadReq =0.12 
TooSmallPmt = 140 

MBKDOWn = 1 

MBKinc = 3 
MBKHome = 1 
MBKSpouse = 1 
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MBKMinPoints = 6 
MinDiscStrongBK =0.11 
MinDiscRegularBK = 0.15 
MBKGood = 3 
MBKHiGood = 3 

BSSmallHD = - 0.20 
BSBK = - 0.20 
BadScalerBase = 1.05 
BSHiDerog =0.20 
MinDiscHiDerog = 0.12 
MinDiscount =0.10 

GSJustForPlaying = 1.50 
GSHiGood =0.25 
GS2ManyAcct = - 0.25 
GSGood2xDerog =0.25 
GSDerog2xGood = - 0.25 
GSDerogSxGood = - 0.25 
GSNooerog =0.20 
GSFTB =0.65 

GSGoodMoreThanDerog =0.10 

t'BigMilesStart = 185000 
Q BigMilesRange_l = 50000 
O BigMi1esRange_2 = 50000 
5 BigMilesRange_J = 50000 
T. HitBigMiles_l = 0.15 
W HitBigMiles_2 =0.15 
OH HitBigMiles_3 = 0.15 
SI 

^ MaxWarrCB = 250 

y: CurrYear = 2000 

1* 

□ ' [FIX YEAR OF CAR IN CASE USER INPUTS 2 DIGIT MODEL YEAR] 

U if (vYear < 5) then 

U CarYear = vYear + 2000 

w else if (vYear < 100) then 

U CarYear = vYear + 1900 

n else 

m CarYear = vYear 

i%? end if 
end if 

'[INITIALIZE HINTS] 

hint = ,,M 

hintl= M " 

hint2="" 

hi nt3="" 

hint4="" 

hint5="" 

hint6="" 

hint7="" 

hint8="" 

hint9="" 

hintl0="" 

hintll="" 

hintl2="" 

hintl3="" 

hintl4="" 

hintl5="" 

hintl6="" 

hintl7="" 
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hintl8= MU 
hintl9= ,M, 
hint20="" 
hint21= ,,M 
hint22= ,,M 
hint23= n " 
hint24= M " 
hint25= ,,n 



1 [DEAL STRUCTURE CALCULATION AREA] 

1 [CALCULATE TAX AMOUNT AND SUBTOTAL] 

Tax = (TaxRate/100) * (Price + Smog + Doc) b 

SubTot = cdbl (Price + Doc + Smog + SmogCert + Tax + LicFee + Warr) 

Total Down = Down + TradeAllowance - TradePayoff 

Total Lesslns = SubTot - Total Down 

' [CALCULATE INSURANCE AMOUNT IF NEEDED] 
if (insFlag = 1) then 

if (Total Lesslns <= 10000) then 
ins = Lookuplns (Total Lesslns, 2 ) 
t? else 

O ins = 0.1088*TotalLessins+95 
d end if 
x el se 

7: ins = 0.00 
Wend if 

m 

\l 1 [THIS IS THE AMOUNT FINANCED] 
cb = (SubTot - Total Down) + Ins 

3 1 [LOOKUP INTEREST RATE] 

Q interest = LookupApr( Term ) 

H APR = interest 

O 1 [CALCULATE PAYMENT] 

y3 paymentA = BPMod.bp^vddOnPMT( CB, Term, 0.12, DaysToPay ) 
p Payment = BPMod.bp_Trunc( PaymentA, 2 ) 

- 1 ["ADDON" IS THE TOTAL DOLLAR AMOUNT OF INTEREST] 

intcost = ( Payment * Term ) - CB 
Addon = (Payment * Term) - CB 
Total of Payment s= Payment *Term 
FrGross = Price - Cost 

Deal erGrOSS=PRICE-COST-RESERVE+WARR-WARCOST- Acq Fee 
1 [END DEAL STRUCTURE CALCULATION AREA] 



1 [MAX AMOUNT FINANCED CALCULATION AREA = "MAXCB"] 
1 [CALCULATE HIT FOR VERY HIGH MILES = "BIGMILEHIT"] 
LotsOfMiles_l = BigMilesStart - ( vclass * 10000 ) 
LotsOfMiles_2 = LotsOfMiles_l + BigMilesRange_l 
LotsofMiles_3 = LotsOfMiles_2 + BigMilesRange_2 

HitRate_l = ( HitBigMiles_l + ( vclass / 100 ) ) / BigMilesRange_l 
HitRate_2 = ( HitBigMiles_2 + ( vclass / 100 ) ) / BigMilesRange_2 
HitRate_3 = ( HitBigMiles__3 + ( vclass / 100 ) ) / BigMilesRange_3 

BiqMileDelta_2 = BPMod.bp_MiN( Miles - LotsOfMiles_2, BigMilesRange_2 ) * HitRate_2 
BigMileDelta_3 = BPMod.bp_MiN( Miles - LotsOfMiles_3, BigMilesRange_3 ) * mtRate_3 
BigMileHit^l - BPMod.bp_MlN( Miles - LotsOfMiles_l, BigMilesRange_l ) * mtRate_l 
BigMileHit_2 = BPMod.bp_lFG( Miles, LotsOfMiles_2 , BigMileHit_l + BigMileDelta_2 , 
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BigMileHit_l ) . . ^ . . . 

BigMileHit_3 = BPMod.bp_iFG( Miles, LotsOfMiles_3, BigMileHit_2 + BigMileDelta_3, 

BigMileHit_2 ) „ _ ..-,■-*/* s 

BigMileHit = BPMod.bp_iFG( Miles, LotsOfMiles_l, BigMileHit_3, 0 ) 

1 [CALCULATE REGULAR HI MILE HIT = "HIMILEHIT"] 

OverMiles = MCBHi Miles - MCBHiMilesRange 

MaxHiMileHit = LookupTermTable( vClass, 10 ) 

MCBHi tRate - MaxHiMileHit / MCBHiMilesRange m 

HiMileHitExpl = BPMod.bp__MlN( ( Miles - OverMiles ), MCBHiMilesRange ) * MCBHitRate 
HiMileHit = BPMod.bp_iFG( Miles,MCBHiMiles - MCBHiMilesRange, Hi Mi lem tExpl, 0 ) 
1 [GET MAXCB] 

BMRange = BMHi Limit - BMLowLimit 
CarClassAdv = LookupTermTableC vclass, 8 ) * Book 
MaxBookAdv = LookupTermTableC vclass, 9 ) + Book 
warrAllowance = BPMod.bp_MiN( MaxWarrCB, warr ) 

PossibleAdv = CarClassAdv - HiMileHit + WarrAllowance + BPMod . bpjvilN ( ins, 
MCBMaxlns ) N . 

OKAdv = BPMod.bp_MlN( PossibleAdv, ( MaxBookAdv + ins + WarrAllowance ) ) 
BigMileSmackScaler = BPMod.bp_MAX( BPMod.bp_MlN( ( OKAdv - Ins - BMLowLimit ) / 
|4 BMRange , 1 ) , 0 ) _ 
h BigMileSmack = ( OKAdv - ins ) * BigMileHit * BigMileSmackScaler 
ilMaxAltCB = 1500 + ins - 100 * ( CurrYear - BPMod.bp_MlN( CurrYear, CarYear ) - 10 ) 
h MaxCB = BPMod.bp_MAX( ( OKAdv - BigMileSmack ), MaxAltCB ) 
1 [END MAX AMOUNT FINANCED CALCULATION AREA] 



^ ' [ASSORTED ONE-LINE VARIABLE CALCULATIONS FOR FUTURE USE] 

SlRealDown = Down + (TradeAllowance - TradePayoff)*TradeScaler 

. CarAge = CurrYear - CarYear 

n EquityTest = Total Lesslns / ( MaxCB - ins ) 

Q 1 [CALCULATE GOOD/DEROG INCLUDING SPOUSE] 

S TotalGood = BPMod.bp_lFB( spouse, C Good + spGood ) / 2, Good ) 

2 TotalDerog = BPMod.bp_lFB( Spouse, ( Derog + SpDerog ) / 2, Deroq ) 

^ Real Hi Good = BPMod.bp_lFB( Spouse, BPMod.bp_MAX( HiGood, spHiGood ), HiGood ) 

fU Real Hi Derog = BPMod.bp_iFB( Spouse, BPMod.bp_MAX( HiDerog, SpHiDerog ), HiDerog ) 

' [CALCULATE INCOME INCLUDING SPOUSE = "REALINC"] 

Total lnc=BPMod.bp_MAX(BPMod.bp_lFB(Spouse, inc+spinc-Support , inc-Support) , 1) 

Realinccondl = BPMod.bp_IFG( TotalGood, 1.5, 1, 0 ) 

RealincCond2 = BPMod.bp_lFL( Total Derog, TotalGood, 1,0 ) 

ReallncCond3 = BPMod.bp_lFGE( YrsTRW, 2, 1,0 ) 

RealincCond4 = BPMod.bp_IFLE( Total Derog, 2, 1, 0 ) 

ReallncCondS = BPMod.bp_lFE( Repos, 0, 1,0 ) 

Reallnccond = Realinccondl * RealincCond2 * RealincCond3 * RealincCond4 * 
ReallncCondS 

Mi nine = BPMod.bp_MAX( Inc-Support, Spine-Support ) 
incHit = BPMod.bp_MAX( 1 - ( Total inc / 10000 ), 0.75 ) 

ReallncExp2 = BPMod.bp_MAX( BPMod.bp_MAX( Totallnc * IncHit, Totalinc - 500 ) , 
Mi nine ) 

ReallncExpl = BPMod.bp_lFB( Reallnccond, Totallnc, ReallncExp2 ) 
ReallncExp = BPMod.bp_lFB( Spouse, ReallncExpl, Totallnc ) 
Reallnc = BPMod.bp_MAX(RealincExp, 1) 

1 [CALCULATE COXSCALER TO BE USED IF COX=YES] 
GoodCreditExp = BPMod.bp_lFL( CoxGood , Good , - 2,0 ) 

GoodCreditPoints = BPMod.bp_lFB( BPMod . bp_lFG( CoxGood, Good, 1,0 ) * BPMod.bp_lFGE( 
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CoxGood,4,l,0 ), 2, GoodCr edit Exp ) 

DerogExp = BPMod.bp_lFB( BPMod. bp_lFG( CoxDerog, 3 ,1,0 ) + BPMod. bp_jFG( 
CoxDerog, coxGood, 1,0 ), - 1, 0 ) 

DerogCreditPoints = BPMod.bp_.IFBC BPMod. bp_lFLE( CoxDerog,CoxGood * 0.5, 1,0 ) * 
BPMod. bp__lFLE( CoxDerog,3 ,1,0 ) * BPMod. bp_lFGE( CoxGood, 1,1,0 ), 2, DerogExp ) 
RepoPoints = BPMod. bp_JTFE( CoxRepo, 0,1, - 10 * coxRepo ) 
incAccounts = BPMod. bp_MAX( (coxGood + coxDerog) , 1 ) 

incDivAcct = BPMod. bp_lFE( ( CoxGood + CoxDerog ), 0, 0, (Coxlnc / IncAccounts) ) 
incomePointsElseExp = BPMod.bp_lFB( BPMod. bp_lFGE( IncDivAcct, 200, 1,0 ) + 
BPMod.bp_IFGE( Coxlnc, 4000, 1,0 ), 3, ( ( IncDivAcct - 100 ) / 100 ) * 3 ) 
Incomepoints = BPMod. bp_lFLE( IncDivAcct, 100,0, IncomePointsElseExp ) 
CoxOwnHomePoints = BPMod. bp_lFB( CoxHome,3,0 ) 
CoxParentOfBuyerPoint = BPMod. bp_lFB( CoxParent,5, - 1 ) 
BuyerLowOnBureauPointElseExp2 = BPMod. bp_JFLE( YrsTRW,3,0, - 1 ) 
BuyerLowOnBureauPointElseExp = BPMod. bp_lFLE( YrsTRW,2,l, 
BuyerLowOnBureauPointElseExp2 ) 

BuyerLowOnBureauPoint = BPMod. bp_iFLE( YrsTRW,l, 3 * BuyerLowOnBureauPointElseExp ) 
coxPoints = GoodCredit Points + DerogCreditPoints + RepoPoints + Incomepoints + 
CoxOwnHomePoints + CoxParentOfBuyerPoint + BuyerLowOnBureauPoint 
GoodCoxExpl = BPMod.bp_lFOR2( BPMod.bp_lFAND2( B PMod . bp_l FG E C Coxlnc , 1500, 1, 0 ), 
BPMod. bp_lFGE( IncDivAcct, 300, 1,0 ), 1, 0 ), BPMod.bp_IFGE( Coxlnc, 2000, 1,0 ), 1, 0 

p GoodCoxExp2 = BPMod. bp_lFE( CoxRepo, 0, 1,0 ) 
j£ GoodCoxExp3 = BPMod. bp_IFL( CoxDerog, 3, 1, 0 ) 

^GoodCoxExp4 = BPMod.bp_IFOR2( BPM0d.bp_IFAND2( BPMod . bp_IFGE( CoxGood , 5 , 1, 0 ), 

* BPMod. bp_JFGE( CoxGood, 5 * CoxDerog, 1,0 ),1,0 ) ,BPMod.bp_lFAND2( BPMod. bp_IFB( 

IU CoxHome,l,0 ), BPMod. bp_lFLE( CoxDerog, 1, 1, 0 ),1,0 ), 1,0 ) 

m GoodCoxCond = GoodCoxExpl * GoodCoxExp2 * GoodCoxExp3 * GoodCoxExp4 

f ; GoodCoxinc = BPMod. bp_lFB( GoodCoxCond, BPMod. bp_MlN( ( coxlnc - 1500 ) / 1000, 1 

5 ),0 ) 

01 DerogNotZero = BPMod. bp_MAX( CoxDerog, 1 ) 

, Goodcoxcredit = BPMod.bp_lFB( GoodCoxCond, BPMod. bp_JFB( CoxDerog, ( CoxGood / 
n DerogNotZero ) * 0.2, CoxGood * 0.2 ), 0 ) 

H Goodcoxscaler = BPMod. bp_lFB( GoodCoxCond, BPMod. bp_MAX( GoodCoxCredi t * GoodCoxinc, 
Hi)* GoodCoxinc, 0 ) 

Q BadBuyer = BPMod.bp_lFB( BPMod.bp_lFG( YrsTRW + Derog,10,l,0 ) * BPMod. bp_iFG( 
,S CoxPoints, 0,1,0 ), 1, 0 ) 

2 BadBuyerScaler = BPMod. bp_lFB( BadBuyer, BPMod.bp__MAX( 0,1 - 0.1 * ( YrsTrw + Derog 

w . io 5 ) , i ) 

fU Coxscaler = BadBuyerScaler * ( CoxPoints + Goodcoxscaler * CoxPoints ) 



' [CALCULATE VARIABLE "RESIDTOT" FOR CUST FACT CALC LATER] 

Resid8YearBase = BPMod. bp_lFGE( Resid, 8.1, BPMod. bp_MlN( Resid - 8, 4 ) * 0.00, 0 ) 
Resid5YearBase = BPMod. bp_IFGE( Resid, 5.1, BPMod. bp_MiN( Resid -5,3)* 1.44, 0 ) 
ResidlYearBase = BPMod. bp_lFGE( Resid, 1.1, BPMod. bp_MiN( Resid - 1, 4 ) * 1.27, 0 ) 
ResidOYearBase = BPMod. bp_IFGE( Resid, 0.0, BPMod. bp_MlN( Resid, 1 ) * 0.776, 0 ) 
ResidTot = Resid8YearBase + Resid SYearBase + ResidlYearBase + ResidOYearBase - 0.176 



'[CALCULATE SCALER FOR GOOD/DEROG CREDIT ITEMS - "GOODSCALER" , "BADSCALER"] 
GoodScalerBase = GSJustForPlayinq 

Goodscaler9 = BPMod.bp_lFE( TotalDerog,0, GoodScalerBase + GSNoDerog, GoodScalerBase 

GoodScaler8 = BPMod.bp_lFG( Total Good, Total Derog, GoodScaler9 + GSGoodMoreThanDerog, 
GoodScaler9 ) 

GoodScaler7 = BPMod.bp_IFB( BPMod. bp_IFG( Real Hi Good, Real Hi Derog * 10,1,0 ) * 
BPMod. bp_lFG( Real Hi Derog, 100,1,0 ) * BPMod . bp_lFL( Real Hi Derog, 3000,1,0 
) ,GoodScaler8 + GSHiGood,Goodscaler8 ) 

GoodScaler6 = BPMod. bp_IFB( BPMod. bp_IFG( Total Good, Total Derog * 2,1,0 ) * 
BPMod. bp_IFGE( Total Derog, 1,1,0 ) ,GoodScaler7 + GSGood2xDerog, GoodScaler7 ) 
GoodScalerS = BPMod.bp_lFGE( Total Derog, Total Good * 2 ,GoodScaler6 + 
GSDerog2xGood,GoodScaler6 ) 
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Goodscaler4 = BPMod. bp_lFGE( Total Derog, Total Good * 5,Goodscaler5 + 
GSDerog5xGood,GoodScaler5 ) 

Goodscaler3 = BPMod.bp_lFB( BPMod. bp_iFE( YrsTRW, 0,1,0 ) * BPMod. bp_jFNE( 
vclass, 5, 1,0 ) ,Goodscaler4 + GSFTB,Goodscaler4 ) 

Goodscaler2 = BPMod. bp_lFB( BPMod . bp__iFL.EC YrsTrw,2,l,0 ) * BPMod.bp_lFGE( TotalGood 
+ Total Derog, 6,1,0 ) ,GoodScaler3 + GS2ManyAcct,GoodScaler3 ) 

Goodscalerl = BPMod.bp_lFL( Real Hi Derog, 1000, GoodScaler2 + ( 1000 - RealHiDerog ) * 
0.0005, Goodscaler2 ) 

GoodScalerO = BPMod.bp_j:FL( YrsTRW, 1, Goodscalerl + ( 1 - YrsTRW ) * TotalGood * - 
0.5, Goodscalerl ) 

Goodscalerx = BPMod. bp_MiN ( GoodScalerO, 1.5 ) 
Goodscaler = BPMod. bp_MAX ( Goodscalerx, 0.25 ) 

BadScalerS = BPMod. bp_iFB( BPMod. bp_jFGE( RealHiDerog, 5000,1,0 ) * BPMod. bp_lFE( 
BK, 0,1,0 ), BadscalerBase + BSHiDerog, BadscalerBase ) 
Badscaler4 = BPMod. bp_TFB( BK, BadScaler5 + BSBK, BadScalerS ) 

Badscaler3 = BPMod. bp_lFLE( RealHiDerog, 500, BadScaler4 + BSSmallHD, BadScaler4 ) 
Badscaler2 = BPMod. bp_lFB( BPMod. bp_lFB( BK,1,0 ) * BPMod. bp_lFL( YrsTRW, 5,1,0 ), 
Badscaler3 + (5 - YrsTRW) *0. 3, BadScaler3 ) 
Badscalerl = BPMod. bp_MAX( BadScaler2, 1.00 ) 
Badscaler = BPMod . bp__MlN( Badscalerl, 1.5 ) 

f 1 [CALCULATE MIN % DISCOUNT BASED BK=YES AND OTHER FACTORS = "MINBK" ALSO TO BE USED 
! IN MINIMUM % DISCOUNT AREA BELOW] 
BKPoints6 
BKPointsS 
BKPoints4 
BKPoints3 
BKPoints2 
BKPointsl 
Mi nBKExp2 



* BPMod. bp_lFGE( Real Inc, 2400, 1,0 ) * 
BPMod . bp_IFGE ( YrsTRW, 8, 1,0 ) * BPMod . bp_IFNE( 



ints6 = BPMod . bp__lFGE( Total Down , 3000 , MBKDown , 0 ) 
intsS = BPMod. bp__IFGE( Real inc, 3000, BKPoints6 + MBKlnc , BKPoi nts6 ) 
ints4 = BPMod . bp_iFGE( Total Good, 8, BKPointsS + MBKGood, BKPointsS ) 
ints3 = BPMod .bp_jFB( Home,BKPoints4 + MBKHome, BKPoi nts4 ) 
ints2 = BPMod. bp_JEFB( Spouse, BKPoi nts3 + MBKSpouse, BKPoi nts3 ) 
intsl = BPMod . bp_iFGE( Real Hi Good, 10000, BKPoints2 + MBKHi Good, BKPoi nts2 ) 
KExp2 = BPMod. bp_lFGE( BKPointsl, MBKMi nPoi nts , MinDiscStrongBK, 
MinDiscRegularBK ) 
MinBKCon = BPMod. bp_IFB( BK,1,0 ) 
BPMod. bp_IFGE( TotalGood, 5 ,1,0 ) * 
vclass, 5,1,0 ) 

Mi nBKExpl = BPMod. bp_iFB( MinBKCon, Mi nBKExp2, MinDiscRegularBK ) 
MinBK = BPMod. bp_IFB( BK, Mi nBKExpl, Mi nDiscount ) 

1 [CALCULATE "BKBONUS" TO BE ADDED TO CUST FACT AS PART OF 11 FINETUNE"] 

BKBonuscond = BPMod. bp_i FN E( vclass, 5,1,0 ) * BPMod. bp_IFGE( Total Down, Price * 
0.20,1,0 ) * BPMod . bp__lFGE( Total Down, 1500, 1,0 ) * BPMod. bp_lFGE( YrsTRW,5,l,0 ) * 
BPMod . bp_lFG( TotalGood, 5, 1,0 ) 

BKBonusExp6 = BPMod. bp_IFGE( Real Hi Good , 10000 , BKHiGood , 0 ) 
BKBonusExpS = BPMod . bp_lFB( Spouse, BKBonusExp6 + BKSpouse, BKBonusExp6 ) 
BKBonusExp4 = BPMod. bp_IFGE( BPMod . bp_IFB( Spouse, inc + spine, Inc ) ,3000, BKBonusExpS 
+ BKlnc, BKBonusExp5 ) 

BKBonusExp3 = BPMod.bp_lFGE( TotalGood, 8, BKBonusExp4 + BKGood, BKBonusExp4 ) 
BKBonusExp2 = BPMod. bp_lFE( MinBK, MinDiscStrongBK, BKBonusExp3 + BKStrong, 
BKBonusExp3 ) 

BKBonusExpl = BPMod. bp_iFB( BKBonuscond, BKBonusExp2, 0 ) 
BKBonus = BPMod. bp_MlN( BPMod. bp_iFB( BK, BKBonusExpl, 0 ), 1 ) 



' [DEBT MODEL #1 CALCULATE "COUNTRENT" AND "CRAPRATIO"] 
OKCrap = BPMod . bp_lFB( Spouse, 0.18, 0.13 ) 
Crap = DEBT / Realinc 

RentMult = ( Crap - CRStart ) / ( CRCountAll - CRStart ) 
CountRentExp2 = RentMult * Rent 

CountRentExpl = BPMod. bp_lFGE( Crap, CRCountAll , Rent ,CountRentExp2 ) 
CountRent = BPMod. bp_lFG( Crap, CRStart , CountRentExpl, 0 ) 
CrapRatio = BPMod. bp_MAX( Crap - OKCrap, 0 ) 
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1 [CALCULATE SIGNIFICANT DOWN = "SIGDOWN"] 

Equity = BPMod. bp_J4AX(( MaxCB - CB - WarrAllowance ), 0 ) 
DollarDownMult = BPMod.bp_MlN( Real Down, SDDollarDown ) / SDDol larpown 
PercentDownMult = BPMod.bp_MiN( Real Down / Price, SDPercentDown ) / SDPercentDown 
SigMult = BPMod.bp_MAX( BPMod.bp_MAX( DollarDownMult, PercentDownMult ), 

SigDown^BPMod.bpj^llNC SigMult * Equity * SDScaler, 0.5 * Real Down ) 
'[CALCULATE " D E BTADD U STMENT' ' ] 

DAPmt = BPMod.bp_MAX( BPMod . bp_PMT(interest , DATerm, CB, DaysToPay ), TooSmallPmt j 
DebtAdjustment = BPMod.bp_iFNE( Term, DATerm, ( DAPmt - Payment ) * DAScaler, 0 ) 

'[CALCULATE TOTAL DEBT = "TOTDEBT"] . 

MinDebt = BPMod. bp_MAX( BPMod. bp_MAX( CountRent, MinRent ), Realinc - 0.1 ) + Debt 
insDebt = BPMod.bp_lFB( BPMod. bp_lFE( ins, 0,1,0 ) * BPMod. bp_iFG( CB, 2500, 1,0 ), CB 

* 0.01, 0 ) __ _ . 

warDebtExp = BPMod. bp_PMT( interest, Term, warrAllowance, DaysToPay ) 
WarDebt = BPMod. bp_iFG( warrAllowance,0, WarDebtExp, 0 ) 
TotDebt = MinDebt + Payment + insDebt - WarDebt + DebtAdjustment 

C ' [CALCULATE VARIABLE TIME ON DOB WHETHER MARRIED OR NOT = "REALDOB"] 

=fijoblnc = Job * ( inc - Support ) 
■SSpJobinc = SpJob * Spine 

** Real D ob Exp 2 = ( Dobinc + SpDobinc ) / Totalinc 

W ReaUobExpl = BPMod. bp_iFLE( TotDebt / ( inc - Support ),0.40, BPMod. bp_MAX(Dob, 
ffl RealDobExp2), RealDobExp2 ) , ■ , ^ 

\jRealDob = BPMod.bp_lFB( Spouse, RealDobExpl, Dob ) 

fp 

■ ' [CALCULATE "JOBTOT" TO BE USED IN CUST FACT DETERMINATION] 
Q DobPointsl = LookupDobTabl e( RealDob, 2 ) 
r. ExtraTime = Real Dob - LookupDobTabl e ( Real Dob, 1 ) 
C DobPoints2 = LookupDobTabl e( Real Dob, 3 ) * ExtraTime 
P DobTot = DobPointsl + DobPoints2 



' [CALCULATE BONUS POINTS FOR FTB OR SHORT BUREAU TO BE USED AS PART OF FINETUNE = 

"SMALLFTBBONUS , " "FTBBONUS"] , , r , n . A 

FTBPointsCondl = BPMod. bp_lFLE( YrsTRW.1.1,1,0 ) * BPMod. bp_l FN E( vclass,5,l,0 ) - 

BPMod.bp_lFE( Repos, 0,1,0 ) * BPMod.bp_lFL( Real Hi Derog, 3000, 1,0 ) 

FTBPoints7 = BPMod.bp_lFGE( Real Inc , 1500, FTBlnc.O ) 

FTBPoints6 = BPMod.bp_iFLE( Payment / Realinc,0.20,FTBPoints7 + 

FTBPmtRatio, FTBPoints7 ) . _ . 

FTBPoints5 = BPMod.bp_lFLE( CB - Ins - SigDown,5500,FTBPomts6 + FTBCB , FTBPOl ntso ) 
FTBPoints4 = BPMod. bp_lFB( PhBill ,FTBPoints5 + FTBPhBi 1 1 , FTBPoi nts5 ) 
FTBPoints3 = BPMod.bp_lFGE( (TotalDown / Price), 0.25, FTBPoints4 + 1 + ( TotalDown 
/ Price - 0.25 ) / FTBDown, FTBPoi nts4 ) 

FTBPoints2 = BPMod. bp_lFB( Spouse, FTBPoi nts3 + FTBSpouse, FTBPomts3 ) 

FTBPoi ntsl = BPMod. bp_iFGE( Resid, 2.1, FTBPoi nts2 + FTBResid, FTBPoi nts2 ) 

FTBPoi ntsExp = BPMod. bp_iFGE( Real Dob , 2 . 1, FTBPoi ntsl + FTBDob, FTBPOI ntsl ) 

FTBPoi nts = BPMod.bp_iFB( FTBPointsCondl, FTBPoi ntsExp, 0 ) _ 

Small FTBBonus - C 1.1 - YrsTRW ) * 0.25 * BPMod. bp_MiN ( 1, FTBPoi nts / 6 ) 

FTBBonus = BPMod.bp_lFG( FTBPoints,6, C 1.1 - YrsTRW ) * 0.50 * BPMod. bp_MIN( 1, ( 

FTBPoints - 6 ) / 3 ), 0 ) 



'[BEGIN SPECIAL POINTS MODEL; YIELDS "FTSPECIALPOINTS"] 

' [HIT FOR LOW DOB AND LOW RESID AT SAME TIME = " SHORTTIMEHIT" ] 

ShortTimeHitCondl = BPMod. bp_lFLE( Dob,STHitl,l,0 ) * BPMod. bp IFLE( 
Resid,STHitl,l,0 ) * BPMod. bp_iFB( spouse, BPMod. bp_iFLE( SpDob,STHitl,l,0 ), 1 ) 
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ShortTimeHitCond2 = BPMod . bp_iFLE( Dob,STHit2,l,0 ) * BPMod. bp -IFLE( 
Resid,STHit2,l,0 ) * BPMod. bp_lFB( spouse, BPMod. bp_iFLE( spJob,STHit2,l,0 ) , 1 
ShortTimeHitl = ( ( STHitl * STHitl ) - ( D 9 b * Resid ) ) * STScalerl 
ShortTimeHitExpl = BPMod. bp_lFB( shortTimeHitCond2, ShortTimeHitl + ( C STHit2 
STHit2 ) - ( Job * Resid ) ) * STScaler2, ShortTimeHitl ) m 
ShortTimeHit = BPMod. bp_lFB( shortTimeHitCondl, ShortTimeHitExpl, 0 ) 

'[HIT FOR HI AMT FINANCED UNLESS OVERRIDES; = "HICBHIT"] m 
HiCBNumber - BPMod,bp_lFG( ( CB - ins - sigDown ), HCBAmtFin, ( CB 
HCBAmtFin ) * HCBScaler, 0 ) 
HCOl = BPMod. bp_lFE( shortTimeHit,0, 1, 0 ) 

HC02 = BPM0d.bp_IFE( RepOS,0, HCOl + 1, HCOl ) 
HC03 = BPM0d.bp_IFAND2( BPMod . bp_IFE( Repos, 1,1,0 ), 

1> HC02 ) «i /\ n 

HCPl = BPMod. bp_JEFGE( Total Good, Total Derog, 1, 0 J 
HCP2 - BPMod. bp_IFGE( RealHiGood, Real Hi Derog, HCPl 



) 



ins - SigDown 



BPM0d.bp_IFB( BK, 1,0 ), HC02 + 



+ 1, 



HCP3 = BPMod'.bp_JFGE( RealHiGood, 0.50 * ( Total Lessins 



HCPl ) 
SigDown ) , HCP2 



+ 1, HCP2 



HCPExp = BPMod . bp_IFGE( HCP3, 2, 0, 1 ) 

HiCBOverideExp = BPMod. bp_JFGE( HC03, 2 
HiCBOveride = BPMod. bp_lFL( HiCBNumber, 
HiCBHit = HiCBNumber * HiCBOveride 



HCPExp, 1 ) 
0, HiCBOverideExp,! ) 



' [EXTRA POINTS FOR OPTIMAL CB = "OPTIMALCBCREDIT"] 

variance = abs( Total Lessins - Optimal CB ) 

OptimalCBExpl = BPMod . bp_lFB( BPMod. bp_lFGE( Payment, 240, 1,0 ) * BPMod.bp_lFE( 
ShortTimeHit, 0, 1, 0 ) * BPMod. bp_iFGE( RealDown, 1000, 1, 0 ),( 1 - variance / 
Allowvariance ) * optimal Points, 0 ) m . 

optimal CBCredit = BPMod. bp_lFL( variance, Allowvariance, OptimalCBExpl, 0 J 
FTSpecial Points = Optimal CBCredit + HiCBHit + ShortTimeHit 

1 [END SPECIAL POINTS MODEL] 



.01 * ( TotalDerog - 5 ), 0 ) 
2000, ( SigDown - 2000 ) * 



!f 1 [FINETUNE MODEL— TO BE ADDED TO CUST FACTOR = "FINETUNE ] 
U FTBonus = FTBBonus + Small FTBBonus + BKBonus 

# FTPhBill = BPMod. bp_IFAND2( BPMod . bp_IFB( PhBill, 1, 0 ) , BPMod . bp_JEFL( TotalDerog + 
O Total Good, 4, 1, 0 ), 0.12, 0 ) _ r 
S FTDerogHit = BPMod . bp__lFG( TotalDerog, 4, - 0.05 - 0. 
FTSigDown = SigDown * .0001 + BPMod. bp_lFG( SigDown, 

FTEquity i 0.75 - EquityTest + BPMod. bp_MAX( 0.6 - EquityTest, 0 ) 
FTBuylFBreathing = BPMod. bp_MAX( FTSigDown, FTEquity ) * BPMod. bp_IFOR2( a 
BPMod. bp_lFL( TotalLesslns, ( MaxCB - Ins ) * 0.75, 1, 0 ), BPMod . bp_lFGE( SigDown, 

FTSmalliHiDerog 1 ^ BPMod. bp_lFB( BPMod. bp_lFE( TotalGood, 0, 1, 0 ) * BPMod. bp_jEFLE( 
RealHiDerog, 500, 1, 0 ) * BPMod. bp_IFG( YrsTRW, 1, 1, 0 ), 0.30, 0 ) 
FTBHD = BPMod. bp_IFB( BPMod . bp_IFGE( RealHiDerog, 2700, 1, 0 ) * BPM0d.bp_IFB( BK, 
0, 1 ) * BPMod. bp_lFE ( Repos, 0, 1, 0 ),( RealHiDerog / 8000 ) * - 0.60, 0 ) 
FTBigHi Derog = BPMod. bp_MAX( - 0.50, FTBHD ) 

insCantFindErr = BPMod . bp_IFB( insFlag, LookupinsC Total Lessins , 3 ), 0 J 
FineTune = FTSpecial Points + FTBigHi Derog + FTSmall Hi Derog + FTBuylFBreathing + 
FTDerogHit + FTPhBill + FTBonus + InsCantFindErr 



'[BEGIN FINAL CUSTOMER FACTOR CALCULATION -- ADD UP "F" VARIABLES] 

TRWPart = BPMod . bp___IFL ( YrsTRW, 2, BPMod. bp_MIN( YrsTRW * 0.5, 0.9 ), BPMod. bp_MIN( 
0.7 + YrsTRW * 0.1, 1 ) ) 
ftrw = TRWPart * CFTRWScaler 
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job Part = DobTot / 10 

FDob = JobPart * CFJobscaler 

ResidPart = ResidTot / 10 

FResid = ResidPart * CFResidScaler 

GoodPart = BPMod.bp_iFL ( Total Good, 2, Total Good * 0.5, BPMod.bp_MiN( 0.5 + 

TotalGood * 0.1, 1 ) ) 

FGood = GoodPart * GoodScaler 

HiGoodPart = BPMod.bp_iFL ( RealHiGood, 20000, 0.5 * RealHiGood / 20000, 0.5 ) 
FHi Good = HiGoodPart * CFHi GoodScaler 

DerogPart = BPMod.bp_lFL ( TotalDerog, 4, TotalDerog * - 0.25, - 0.5 - TotalDerog * 
0.1 ) 

BKDerog = BPMod.bp_IFB ( BK, 0.7,1 ) Dvnar . n „ 
FDerog = BPMod.bp_MAX( DerogPart * BadScaler, - 1.05 ) * BKDerog 

CFPhBillScaler = BPMod. bp_lFL( TotalLessins, 4000, 0.8, 0.65 ) * 20 /Term 
PhBillPart = BPMod.bp_lFB ( PhBill, BPMod.bp_lFL ( EquityTest, 0.90, 0.33, 0.33 

0.80 ), 0 ) L , in n 

uFPhBill = PhBillPart * CFPhBi 11 Scaler 

U ReooPart = Repos * - 0i25 

OcFRepoScaler - BPMod. bp_lFG( RealHiDerog, 1000, 2, BPMod.bp_MAX( 1, RealHiDerog * 
£ -002 ) ) 

f A FRepo = RepoPart * CFRepoScaler 

ff 1 BKPart = BPMod. bp_lFB( BK, - 0.5, 0 ) 
M fbk = BKPart * CFBKScaler 

^ HomePart = BPMod. bp_jFB ( Home, 2/3, 0 ) . 

! HomePartScaler= 0.4 + 0.4* (BPMod. bp_lFG (RealHiGood, 30000, Real Hi Good- 30000, 

O 0)/70000) n -| * 

IN* FHome = HomePart * BPMod. bp_MiN( CFHomeScaler, HomePartScaler) 

QlncPart = BPMod. bp_lFL ( Realinc, 3000, Realinc / 2000, BPMod. bp_MlN( Reallnc, 12000 
** ) / 1800 ) 

U Fine = incPart * CFincscaler 

U DebtPart = BPMod. bpjFGE ( TotDebt / Realinc, 0.55, - 0.1, BPMod. bp_MiN( 0.7 - 
TotDebt / Realinc, 0.5 ) ) 
FDebt = DebtPart * CFDebtScaler 

CFSpouseScaler = BPMod. bp_lFLE( YrsTRW, 1, 0.5, 0.35 ) 

Worthlessspouse = BPMod . bp_lFAND2 ( BPMod . bp_lFl_E ( SpJob, 0, 1, 0 ) , BPMod. bp_lFLE( 
SpGood, 0, 1, 0 ),0, 1 ) 

SpousePart = BPMod. bp_lFB ( Spouse, 0.5, 0 ) * worthlessspouse 
FSpouse = SpousePart * CFSpouseScaler 

CoxPart = BPMod. bp_lFB ( Cox, 0.5, 0 ) 
CFCoxScaler = coxscaler / 10 
FCox = CoxPart * CFCoxScaler 

Total CFPoints = FTRW + FJob + FResid + FGood + FHi Good + FDerog + FPhBill + FRepo + 
FBK + FHome + Fine + FDebt + FSpouse + FCox + FineTune u ^. . 

CustFact = BpMod.bp_ROUND (BPMod. bp_MAX( BPMod . bp_MlN (Total cfpoi nts , 5 ), 0.001 ) 

0.98, 2) 

' [END FINAL CUSTOMER FACTOR CALCULATION] 
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' [CALCULATE SCALER IF GOOD CUSTOMER WITH HIGH DEBT = "DEBTSCALER ] 

Debtscaler_expl - BPMod.bp_lFOR2( BPMod. bp_iFLEC Total Lesslns,Rea line * 5,1,0 
) ,BPMod.bp_IFLE( TotalLesslns, 4500, 1,0 ),1,0 ) 
DebtScaler_exp2 = BPMod.bp_lFGE( Real Dob, 1,1,0 ) 
DebtScaler_exp3 = BPMod . bp_iFGE( YrsTRW, 1,1,0 ) 

Debtscaler_exp4 = BPMod. bp_lFOR2C BPMod. bp_lFLE( Total Derog, 1,1,0 ) ,BPMod.bp_lFLE( 
RealHiDerog,400,l,0 ),1,0 ) 

Debtscaler_exp5 = BPMod.bp_lFLE( TotalGood,4,l,0 ) 
DebtScaler_exp6 = BPMod. bp_iFLC Tot al Good, Tot alDerog, 1,0 ) 
DebtScaler_exp7 = BPMod. bp_lFLC Real inc, 1700, 1,0 ) 

DebtScalerCondition = DebtScaler_expl * DebtScaler_exp2 * DebtScaler_exp3 - 

Debt Seal er_exp4 * DebtScaler_exp5 * DebtScaler_exp6 * Debt Seal er_exp7 

DSinc = BPMod. bp_MAXC Real inc, 1200 ) 

DebScalerExp = 0.5 + C DSinc - 1200 ) / 1000 

DebtScaler = BPMod.bp_lFB( DebtScalerCondition,DebScalerExp,l ) 

1 [CALCULATE DEBT RATIO HIT FOR PAY PROB ADJUSTMENTS = "DEBTPROBLEM"] 
DebtRatio = Real inc / TotDebt . 
DebtHitExp = BPMod.bp_lFLE( DebtRatio, 2, 0.225 + ( 2 - DebtRatio ) - 0.6, ( 2.5 - 
ir* DebtRatio ) * 0.45 ) 

iPiDebtHit = BPMod.bp_iFLE( DebtRatio, 2.5, DebtHitExp ,0 ) 
S DHMaxl = BPMod.bp_MAX( 0.95 - EquityTest, 0 ) 
^SDHMax2 = BPMod.bp_MAX( 0.75 - EquityTest, 0 ) 
4 DebtHitScaler = 1.05 - DHMaxl - DHMax2 
yDebtProblem = DebtHit * DebtHitScaler * DebtScaler 

vi 

■si 

CP '[EXCESS TERM DETERMINATION MODEL BEYOND BASETERM- -MODEL YIELDS "FREETERM" , 
, "BUYTERM", & "EXTERM"] 
p= BaseTerm =31 

^MinPmt = 255 - ( SigDown / 75 ) 

f OKPmt = BPMod.bp_lFGE( Payment , Mi nPmt , 1, 0 ) 

cm 

;|j RegularFreeTerm = BPMod. bp_lFGC CustFact, FreeGetNone, 1, 0 ) 

;:f! YEMi 1 es = LookupTermTableC vclass, 2 ) 
fy YE Age = LookupTermTableC vclass, 3 ) 

ME Age = LookupTermTableC vclass, 4 ) 

MEMiles = LookupTermTableC vclass, 5 ) 

FreeTermPercent = BPMod. bp_MiNC C CustFact - FreeGetNone ) / C FreeGetAll - 
FreeGetNone ), 1 ) , , _ . . 

Term4NewerCar = BPMod. bp_lFLEC Miles, YEMi 1 es , BPMod.bp_MAXC YEAge - CarAge, 0 ), 0 
) * FreeTermPercent 

Term4LowMiCar = BPMod. bp_lFLEC CarAge, MEAge, BPMod. bp_MAXC C MEMiles -Miles ) / 
5000, 0 ), 0 ) * FreeTermPercent 

StrongBuyerFreeTerm = BPMod. bp^lFG C CustFact, SBGetNone, 1, 0 ) 



SBAge = LookupTermTableC vclass, 6 ) 
SBMiles = LookupTermTableC vclass, 7 



) 



SBFreeTermPercent = BPMod. bp_MlNC C CustFact - SBGetNone ) / C SBGetAl 1 - SBGetNone 
) 1 ) 

Term4StrongBuyer = BPMod . bp_IFAND2 C BPMod. bp_lFLE ( CarAge, SBAge, 1, 0 
), BPMod. bp_lFLE C Miles, SBMiles, 1, 0 ),3 * SBFreeTermPercent, 0 ) 
QualifyFreeTerm = BPMod. bp JFAND2C BPMod. bp_lFBC RegularFreeTerm, 1, 0 
) , BPMod. bp^JFBC StrongBuyerFreeTerm, 1, 0 ) ,Term4Newercar + Term4LowMiCar + 
Term4StrongBuyer,BPMod.bp_lFB C RegularFreeTerm, Term4NewerCar + Term4LowMicar , 0 ) 
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FreeTerm = BPMod. bp_lFGC Term, BaseTerm, BPMod. bp_MiNC QualifyFreeTerm, Term - 
BaseTerm ), 0 ) * OKPmt 

OKTerm = BaseTerm + FreeTerm 

BuyTerm = BPMod. bp_MAXC Term - OKTerm, 0 ) 

ExTermScaler = C CustFact - 1 ) / 1.75 * 0.01 

Excesscharge = BPMod. bpjFG ( CustFact, 1, 0.015 - ExTermScaler, 0.015 ) 
CostPerMonth = BPMod. bp_MAXC Excesscharge , .005 ) 
PmtBelow250 = BPMod . bp_lFL ( Payment, 250, 1000, 1 ) 
TooLong = BPMod. bp_JFG ( BuyTerm, 6, 1000, 1 ) 
MustBuyTerm = BPMod. bp_lFGE ( BuyTerm, 0, 1, 0 ) 

ExTerm = BPMod. bp^lFB( MustBuyTerm, CostPerMonth * BuyTerm * PmtBelow250 * TooLong, 
0 ) * (CB - ins - warrAllowance) 

1 [END EXCESS TERM DETERMINATION MODEL] 

'[PRIMARY TERM HIT/HELPER = n XTERM n ] 

Termcust = CustFact * 20 

KentTerm = ( 12 - CarAge ) * 6 

ClassTerm = 5 - vClass 
^ClassScaler = ClassTerm / 5 , ; cnn n . 

^CBTerm = BPMod . bp_JFG ( ( MaxCB - Ins ), 6000, ( MaxCB - ins - 6000 ) / 500, 0 ) 
OjermCFScaler = BPMod. bp_iFG ( CustFact, 1, BPMod. bp_MlN( CustFact - 1 , 1 ) , 0 J 
OTermCar = KentTerm + ( ClassTerm + CBTerm * classScaler ) * TermCFScaler 
j!:TermMaxMiles = 180000 - ( vClass * 10000 ) 

^SubtractTerm = BPMod.bp_lFG( Miles, TermMaxMiles, ( C Miles - TermMaxMiles ) / 10000 

* VClaSS / 2, 0 ) ^ ^ „ r - r 

CUTermMax = BPMod. bp_MlN( TermCar, Termcust ) + BuyTerm * 0.5 + FreeTerm - 0.5 - 

\| subtractTerm 

■?Tv;XTerm = Term - TermMax 

O '[PAYMENT PROBABILITY MODEL] 

U 1 [CUSTOMER FACTOR COMPONENT = "CFALLOWANCE ] 
iUcFSMin = LookupCFScalerTableC CustFact, 1 ) 

CFSBase = LookupCFScalerTableC CustFact, 2 ) 

CFSExtra = LookupCFScalerTableC CustFact, 3 ) 
P CustFactScaler - CFSBase + C CustFact - CFSMin ) * CFSExtra 
m CFAllowance = CustFactScaler * CustFact 

' [DOWN PAYMENT COMPONENT = "DOWNPRICE"] 

FedExTax = BPMod. bp__IFGEC CustFact, 2.5, 0, BPMod. bp_MlNC C 2.5 - CustFact ) * 76, 
39 ) ) 

inputDiscount = Reserve - FedExTax 

DownAllowance = C Price * 0.2 ) + inputDiscount + SigDown - ExTerm 
DownPrice = DownAllowance / Price 

1 [OVERALL SCALER] 
ppscaler = 0.95 

1 [ADJUSTMENTS = "PPADJUST"] 

ppDebt = Debt Problem * - 0.7 

ppcrap = C CrapRatio * DebtScaler ) * - 1 

PPStupid = BPMod.bp_iFBC BPMod. bp_iFL( Payment/Term, stupidNum, 1, 0 ) * 
BPMod.bp_IFGEC Term, StupidTerm, 1,0 ), C StupidNum - Payment / Term ) * - 0.1, 0 J 
PPTerm = XTerm * - 0.01 

PPAdjust = PPTerm + PPDebt + PPStupid + PPCrap 

Payprob = CFAllowance * DownPrice * PPScaler + PPAdjust 
1 [END PAYMENT PROBABILITY MODEL] 
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' [DISCOUNT NEEDED BASED ON PAYMENT PROBABILITY MODEL = "SPREADNUM"] 
LossProb = BPMod . bp_MlN ( 1 - PayProb, 1.1 ) 
DiscountAllow = inputDiscount * 2 

LossAmount = LossProb * ( TotalLesslns - warrAllowance ) + ExTerm - DiscountAllow 
spread = spreadReq * ( CB - ins - WarrAllowance ) 
SpreadNum = ( LossAmount + Spread ) * SpreadNumScaler 



1 [MINIMUM % DISCOUNT AREA] 

' [CALCULATE MIN % DISCOUNT DEPENDING OF # REPOS = n MINREPO M ] 
MinRepoExp3 = BPMod. bp__CASE3( repos, 1, 2, 3, 0.125, 0.20, 0.35, 0.50 ) 
MinRepoExp2 = BPMod. bp_CASE2( repos, 1, 2, 0.10, 0.175, 0.30 ) 
MinRepoExpl = BPMod. bp_lFB( BK, Mi nRepoExp2 , MinRepoExp3 ) 
MinRepo = BPMod. bp_lFE( Repos, 0,0. 10, MinRepoExpl ) 

' [CALCULATE MIN % DISCOUNT BASED ON HI DEROG = "MINDEROG"] 

MinDerog = BPMod. bp_IFB( BPMod. bp_IFGE( Real Hi Derog, 3000, 1,0 ) * BPMod. bp_IFE( BK,0, 
1,0 ), Mi nDiscHi Derog, MinDiscount ) 

.. 1 [CALCULATE MIN % DISCOUNT BASED ON LOW TIME ON BUREAU = "MINTRW"] 
HMinTRWExp = BPMod.bp_IFOR2( BPMod . bp_IFGE( FTBPoi ntS ,9,1,0 ), BPMod.bp_IFGE( 
GCoxScaler,30,l,0 ), 0.125 - ( YrsTRW / 40 ) , 0.15 - ( YrsTRW / 20 ) ) 
pMinTRW = BPMod. bp_IFL( YrsTRW, 1, Mi nTRWExp , 0.10 ) 

+ s 1 [CALCULATE MIN % DISCOUNT BASED ON CUSTOMER FACTOR = "MINFACT"] 
W FactMinDisc =0.3 

01 SigDownHel per = ( sigDown * 0.25 ) / ( TotalLesslns - warrAllowance ) 
£*Below75 = BPMod. bp__lFL( CustFact, 0.75, 1, 0 ) 

» Below75Hit = BPMod. bp_lFL( CustFact, 0.35, .2, ( 75 - ( CustFact * 100 ) ) * .005 ) 
& Below35 = BPMod.bp_lFL( CustFact, 0.35, 1, 0 ) 
> Below20 = BPMod. bp_iFL( CustFact, 0.20, 1, 0 ) 

G LowBal Scaler = BPMod. bp_iFLE( TotalLesslns, 2000, 0.50, BPMod. bp_IFLE( TotalLesslns, 

U- 3000, 1 - C ( 3000 - TotalLesslns ) / 1000 ) * 0.50, 1 ) ) 

C Mi n Fact 75 = ( FactMinDisc + Below75Hit - SigDownHel per ) * LowBal scaler 

w Mi n Fact 3 5 = BPMod . bp_lFB( Below35, BPMod. bp_iFB( Below20, 10, BPMod. bp_lFG( 

=2 TotalLesslns, 3000, 10, 0 ) ), 0 ) 

n MinFact = BPMod. bp_lFB( Below75, BPMod. bp_MAX( MinFact75, MinFact35 ), MinDiscount ) 

' [END MINIMUM % DISCOUNT AREA] 



1 [ADDITIONAL DISCOUNT FOR KINKY TERM = "KINKTERM"] 

TermisKinky = BPMod. bp_IFG( Term, KinkMaxTerm, 1, 0 ) 

Kinksubtot = BPMod . bp_MAX C CarAge - KinkAge, 0 ) + BPMod. bp_MAX( Miles - KinkMiles, 
0 ) / 10000 

PointsFromCF = BPMod . bp_MAX( KinkCF - CustFact, 0 ) * 10 * KinkSubTot 

OverMax = BPMod. bp_MIN( BPMod. bp_MAX( Term - KinkMaxTerm, 0 ), 3 ) 

Total KinkPoints = ( Kinksubtot * OverMax ) + ( Kinksubtot * PointsFromCF * OverMax ) 

KinkTerm = BPMod. bp_iFB( TermisKinky, Total KinkPoints * CostPerKinkPoint , 0 ) 



' [GET FINAL RESERVE] 

MinDisc = BPMod.bp_lFGE( CustFact, 2.5, 300, BPMod. bp_MIN( ( 2.5 - CustFact ) * 88 + 
300, 344 ) ) 

MinPercent = BPMod. bp_MAX( BPMod. bp_MAX( BPMod. bp_MAX( MinDerog, MinTRW ), 
BPMod. bp_MAX( MinBK, MinRepo ) ), BPMod. bp_MAX( MinFact, MinDiscount ) ) 
MinReserve = MinPercent * ( TotalLesslns - WarrAllowance ) 
Final Subtot = BPMod. bp_MAX( BPMod. bp_MAX( MinDisc, MinReserve ), SpreadNum ) 
TooMuchTerm = BPMod. bp_lFG( Term, 48, 50000, 0 ) 
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PmtToosmall = BPMod . bp_lFL( Payment, TooSmall Pmt , 50000, 0 ) 

Final Reserve = Final Subtot + KinkTerm + ExTerm + TooMuchTerm + PmtTooSmall 



' [GET OVERADVANCE AND CHECK TO DEALER] 
REALOA=BPMod . bp__IFG(CB , MAXCB, CB-MAXCB, 0.00) 
CheckToDeal er=CB-INS-RESERVE-ACQFEE-REALOA 
OA=Round(REALOA+0.50, 0) 



' [HINT AND ERROR SECTION] 

1 [NEED THE FOLLOWING TO BEGIN HINTS] 

DebtP= TotDebt/Realinc 

DebtDiff= DebtP - 0.55 

LessDebt= DebtDiff*Reallnc + 5 

GetDown= (2000-RealDown)*0.8 

LowerPri ce= (1000-si gDown-GetDown) /0 . 8 



1 [HINTS] 
IM< 'CHANGE 

pif repos > 3 then 

Shintl = " wow! " + formatnumber (repos, 0) + " repossessions!!! " 
*£end if 

Sil 1 CHANGE 

m if repos > 2 then 

^hint2 = " But... " + formatnumber (repos, 0) + " repossessions? Forget the phone 
y bill , get a blood sample. " 

tM end if 

U 1 CHANGE 

rf if ((PPStupid+PPTerm < -0.15) and (FinalReserve > (CB-lns)*0.15) and (FinalReserve > 
!* 500)) then 

O hint3 = " You could do better with a shorter term. " 
end if 

H 1 CHANGE 

!iw if ((DealerGross < 0) and (Reallnc < 1400)) then 

hint4= " Try a less expensive car for this income so you can make a better deal." 
end if 

'CHANGE 

if ((CustFact < 0.75) and (Mi nRepo* (Total Lessins-WarrAllowance) <= 
Final Reserve-200)) then 

hint5= " Try a lower price, or more down, or a shorter term. You might make a 
better deal. " 
end if 

'CHANGE 

if ((YrsTRW = 0) and (Good > 0) and (Good < 3)) then 

hint6= " Make sure you get documentation showing the good credit. No rental, 
medical , or dental . " 
end if 

1 CHANGE 

if ((Home = 1) and (Hi Good < 30000)) then 

hint7= " If the house is not on the credit bureau, then make sure to send proof of 
home-owner. 11 
end if 

Page 14 



B-51 



CA EXPRESSIONS WITH COMMENTS . txt 

'CHANGE , 
•if ((Miles <> 117545) or (Price <> 6995)) then 
if (inputDiscount >= Final Reserve) then 
hint8= " It's a deal ! 
end if 

'CHANGE 

if (Miles < 100000 and (BPMod . bp_THiSYEAR-CarYear > 9)) then 

hint9= " Better check the miles, if the car is over 10 years old, you have to input 
at least 100,000 miles." 
end if 

,CHANGE , 
if Miles < (BPMod. bp_THISYEAR-CarYear)*7000 then 

hintl0= " Check your miles. Your input is very low, unless the last owner was my 

grandmother." 

end if 

1 CHANGE 

if repos >= 5 then 

hint 11= " Like a '72 Pinto. 

end if 

U, 1 CHANGE _ , 

Llif ((Repos > 0) and (HiDerog < 3000)) then r 

Whintl2= " Don't forget that the Hi Derog is the amount of the loan, not how much was 
□ charged off. " 
fend if 

5 1 'CHANGE 

Sf'if BK = 1 then 

\fhintl3= " Bankruptcy must be discharged. 

friend if 

* 1 CHANGE 

Oif ((YrsTRW = 0) and (Good > 2)) then m 

|4hintl4= " You can't have more than 2 good credit items that are not on the bureau. 

J|J end if 

O 'CHANGE . _ , 

ni if ((Job > 2) and (Resid > 2) and (Job = Resid)) then 

hintl5= " if this is a military deal, don't forget to send a completed Mac 

allotment. Must be rank of E3 or higher. " 

end if 

' CHANGE 

if support > 0 then 

hintl6= " Remember not to count Family Support accounts as Good or Derog. 
end if 

if H ((DebtPart < 0) and (LessDebt < 40) and (Final Reserve >= BPMod. bp_MAX (Mi nDisc, 
MinReserve) + KinkTerm + ExTerm + 100) and (Payment-LessDebt > 170)) then 
hintl7= " You can make a better deal if you use Price and Down to get the payment 
about " + formatnumber (LessDebt, 0) + " dollars lower. " 
end if 

'CHANGE „ , , , . . 

if ((DebtPart < 0) and (LessDebt > 40) and (Final Reserve >= BPMod. bp_MAX(MinDi sc, 
MinReserve) + KinkTerm + ExTerm + 100) and (Payment-LessDebt > 170)) then 
hintl8= " You could make a lot better deal if the payment was " + 
formatnumber (LessDebt, 0) + " dollars lower. Try a less expensive car. 
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end if 
1 CHANGE 

if GetDown+SigDown <= 1000 then 

hintl9= " And lower the Price by about " + formatnumber(i_owerPrice, 0) + " dollars. 
■I 

end if 
' CHANGE 

if ((sigDown >= 850) and (sigDown < 1000) and (Final Reserve >= BPMod . bp_MAX(Mi nDi sc , 
MinReserve) + KinkTerm + ExTerm + 100)) then 

if Real Down < 2000 then 

hint20= " You might do better if you get 2000 dollars down. " +hintl9 

else 

hint 20= " You might do better if you lower the Price by about " + 
formatnumber((1000-SigDown)/0.8, 0) + " dollars. 

end if 
end if 

1 CHANGE 

hint22= " Try putting down " + dollarstring(OA,0) + " more, or lower the price. n 

«.if ((CustFact > 1.0000000000) and (OA > 0)) then 

hint21= " Try putting down " + formatnumber(OA,0) + " dollars more, or reserve 
pthe O-A, then:" 
r! else if (OA > 0) then 
'5 hint21= 
+! hint25=hint22 
W hint8= "" 
ff! end if 
\l end if 

^if (CustFact < 1.000000000) then 

a hint23= " You can't reserve the O-A, because the Customer Factor has to be over 1. 
u e1 se 

L; hint23= ,,n 
w end if 

O 'if (vclass = 5) then 

SI ' hint24= " You can't reserve the o-A, because the Car class cannot be 5. " 
^ 'else 

1 hint24= ,,n 

'end if 



' [ERROR CHECKING] 

DeathErr4 = BPMod. bp_lFG( KinkTerm, ( CB - ins ) * .1, 4, 0 ) 
DeathErr3 = BPMod. bp_iFL( Payment, ToosmallPmt, 3, DeathErr4 ) 
DeathErr2 = BPMod. bp_lFGE( ExTerm, 0.25 * ( CB - ins ), 2, DeathErr3 ) 
DeathErrl = BPMod. bp_iFG( Term, 48, 1, DeathErr2 ) 

Err9 = BPMod. bp_lFL( FCox,0,9,10 ) 

Err8 = BPMod. bp_IFG( KinkTerm, ( CB - ins ) * .02, 8, Err9 ) 

if (cb-maxcb <= 0.00) then 
Err7 = Err8 
else 

if (CB-MAXCB < 300) then 
Err7 = 12 
else 

if (cb-maxcb <= 1000) then 1 [o/a is between 300 and 1000, inclusive] 
Err7 = 7 
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else 

Err7 = 11 
end if 
end if 
end if 



ErrCode = BPMod.bp_iFG( FinalReserve, CB, DeathErrl, Err5 ) 
Errstr = ErrLookup(ErrCode) 
NoDol 1 arOA=FormatNumber(REALOA , 0) 

if (REALOA = 0.00) then 
OAStr = "" 

OAStr = "$ " & fo rmat Number (OA, 0) 
end if 

StructOK = inputDiscount >= FinalReserve 
AMTOK = CB <= MAXCB 

Set BPMod = Nothing 





£ systemError = Err. Description 

ill End i f 



G 1 ' [END EXPRESSIONS] 



0] 
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Ti pType . bpD 



None,0 

Aladdin Resort & casmo,l 
Arizona Charlies East ,4 
Aztec inn Casino, 4 
Arizona Charlies,3 
Barbary Coast, 3 
Bally' s Las Vegas, 1 
Bell agi o,l 

Binion's Horseshoe, 5 
Boardwalk Casino, 3 
Boulder Station Hotel & Casino, 2 
Caesars Pal ace, 1 
California Hotel & casino, 2 
Castaways Hotel ,3 . 
Circus Circus Hotel & Casino, 2 
Crowne Plaza, 5 
Excalibur Hotel & casino, 1 
El cortez Hotel & Casino, 5 
Fiesta Casion Hotel ,4 
Flamingo Las Vegas, 1 
Fitzgeralds Casino & Holiday,! 
^ s Four Queens casino / Hotel, 2 
O Fremont Hotel & Casino, 2 
O Golden Nugget, 1 
% Gold Coast Hotel & casino, 3 
Hacienda Hotel & Casino, 3 
Hampton inn Tropicana,4 
m Hard Rock Hotel & casino,l 
Harrah l s Las Vegas Casino, 2 
J< Hotel San Remo,2 
u * Hyatt Regency Lake Las Vegas, 2 
■ imperial Palace Hotel & Casino, 2 
O Key Largo Casino & Quality inn, 4 
tj Lady Luck Casino & Hotel, 3 
~. Las Vegas Club, 2 
y Las vegas Hi! ton, 1 
*0 Luxor Las vegas, 1 
Q Main Street Station, 3 
51 Mandalay Bay Resort & casmo,l 
l¥ Maxim Hotel & Casino ,4 
MGM Grand Hotel & casino,! 
Mirage Hotel & Casino,l 
Monte carlo Resort & casino,l 
Nevada Palace Hotel & Casino, 3 
New Frontier, 2 
New York - New York,l 
Orleans Hotel & Casino, 2 
Palace Station Hotel & casino, 2 
palms Casino Hotel ,2 
Paris Las Vegas casino Resort,! 
Plaza Hotel & casino, 3 
Regent Las vegas, 3 
Reserve Hotel & casino, 3 
Rio All suite Hotel & Casino, 1 
Riviera Hotel & casino,l 
Sahara Hotel & casino,! 
Sam's Town Hotel & Gambling, 1 
Santa Fe station & Hotel, 1 
Silverton Hotel & casino, 4 
Stardust Resort & Casino, 2 
Stratosphere Casino Hotel, 2 
suncoast Hotel & casino, 4 _ 
sunset Station Hotel & Casino, 2 
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Terrible's Hotel & Casino, 4 

Texas Station Gambling Hal 1,2 

Treasure island, 1 

Tropicana Resort & casino, 1 

Venetian Resort Hotel, l m 

Union Plaza Hotel & casino, 3 

vacation village, 3 

Westward Ho Hotel & Casino, 3 

Wild Wild West Hotel ,3 

ALL OTHER CASINOS, 1 

Strip Clubs (Click one below) :,0 

Can Can Room, 6 

Cheetah, 6 

Club Paradise, 6 

crazy Horse Too, 6 

deja vu,6 

Diva's,? 

Forbidden club, 7 

Library, 7 

Li I 1 Darlings, 7 

Olympic Gardens, 6 

Spearmint Rhino, 6 
M* strip Tease, 7 
jB Talk of the Town, 7 
n All OTHER STRIP CLUBS, 8 



hi 
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TipJob.bpD 

None/Not Full Time,0 
Bar Back, 4 
Bartender, 1 
Bell Person, 5 
Change Person, 4 
Cocktail server, 2 
Dealer, 1 
Exotic Dancer, 9 
Food server, 3 
Room service, 4 

valet ' 5 . 

Other Tipped Employee, 4 



1 = 2 
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unit main; 
interface 



uses 

ActiveX, MtsObj, Mtx, ComOb j , BPf unctionsModuleJTLB, StdVcl; 
type 

TBPFunctions = class (TMtsAutoObj ect , IBPFunctions) 
protected 

function bp_IFG (Valuel : Double; Value2 : Double; Resultl: Double; Result2: Double) 
Double; safecall; 

function bp_IFB{ Condition, Resultl, Result2 : Double): Double; safecall; 
function bp_IFL( Value 1, Value2, Resultl, Result2: Double): Double; 
safecall ; 

function bp_IFNE {Value 1, Value2, Resultl, Result2 : Double): Double; 
safecall ; 

function bp_CASE2 (Key, Valuel, Value2, Resultl, Result2, 

ResultElse: Double) : Double; safecall; 
function bp__CASE3 (Key, Valuel, Value2, Value3, Resultl, Result2, Result3, 

ResultElse: Double) : Double; safecall; 
function bp_CASE4 (Key, Valuel, Value2 , Value3 , Value4, Resultl, Result2, 

Result3, Result4, ResultElse: Double): Double,- safecall; 
function bp_IFAND2 (Valuel , Value2, Resultl, Result2 : Double): Double; 

safecall ; 

function bp_IFE (Valuel , Value2 , Resultl, Result2: Double): Double; 
safecall; 

function bp_IFLE (Valuel, Value2, Resultl, Result2: Double): Double; 
j, safecall ; 

function bp_IF0R2 (Valuel, Value2, Resultl, Result2: Double): Double; 
O safecall; 

r| function bp __MAX( Valuel, Value2 : Double): Double; safecall; 

'"P function bp_MIN( Valuel, Value2 : Double): Double; safecall; 

7^1 function bpjDCCAPR(LoanDate, First Payment Date : TDateTime; InterestRate, 

UJ Principal, Term, Payment: Double): Double; safecall; 

function bp__ROUND (NumberToRound, Exponent: Double): Double; safecall; 
function bp_TRUNC (NumberToTrunc , Exponent: Double): Double; safecall; 
function bp_IFGE (Valuel, Value2, Resultl, Result2 : Double): Double ; 
safecall ; 

function bp_ADDONPMT (Principal, Term, AddOnRate, 
DaysToFirs t Payment : Double): Double; safecall; 
function bp_PMT (InterestRate, Term, Principal, 
DaysToFirstPayment : Double): Double; safecall; 
Q function bp_VEHICLEAGE (VehicleYear, MonthOfManuf acture : Double): Double; 
safecall; 

jS function bp_CEI LING (NumberToCei ling , Exponent: Double): Double; safecall; 
M function bp_FLOOR (NumberToFloor , Exponent: Double): Double; safecall; 
flj function bp_THISYEAR: Double; safecall; 
{ Protected declarations } 
end; 

const OccDaysInYear = 360; 
implementation 

uses ComServ, math, StDate, SysUtils; 

function IncMonth (const date : TDateTime) : TDateTime; 
var 

orpDate : TstDate; { Orpheus functions } 
begin 

orpDate := STDate .DateTimeToSTDate (date) ; 
orpDate := IncDateTrunc (orpdate , 1, 0) ; 
result := STDate. STDateToDateTime (orpDate) ; 
end; 

function DecMonth (const date : TDateTime) : TDateTime ; 
var 

orpDate : TstDate; { Orpheus functions } 
begin 

orpDate := STDate .DateTimeToSTDate (date) ; 
orpDate := IncDateTrunc (orpdate , -1, 0) ; 
result := STDate, STDateToDateTime (orpDate) ; 
end; 

function ComputeOccUnitPeriods (const f irstPaymentDate : TDateTime ; 

const loanDate : TDateTime; 

var unit Periods: extended ) : extended; 
var o-Oo 



01 

s 



D2 : TDateTime; 
Dl : TDateTime; 
done : boolean; 
begin 

D2 := f irstPaymentDate; 
unitPeriods : = 0; 
done := False; 
repeat 

Dl := D2; 

D2 := DecMonth(D2) ; 
if D2 >= loanDate then 

unitPeriods := unitPeriods + 1 
else 

done := True; 
until done; 

result := Trunc (Dl - loanDate); 
end; 



function TBPFunctions .bp_IFG (Valuel , Value2 , Result 1, 

Result2: Double): Double; 
begin 

if (valuel > value2) then 

result := resultl 
else 

result := result2 

end; 

function TBPFunctions .bp_IFB (Condition, Resultl, Result2 : Double): Double; 
.rfeegin 

if (Condition = 0) then 
M result := result2 
else 

result := resultl 

function TBPFunctions ,bp_IFL (Valuel , Value2, Resultl, 
ffH Result2: Double) : Double; 
JDegin 

s if (valuel < value2) then 
O result resultl 
1*4 else 

result := result2 

'^nd ; 

Qunction TBPFunctions .bp_IFNE (Valuel , Value2, Resultl, 
^ 5 Result2: Double): Double; 
!i Begin 

if (valuel <> value2) then 

result := resultl 
else 

result := result2 

end; 

function TBPFunctions . bp_CASE2 (Key, Valuel, Value2 , Resultl, Result2, 

ResultElse: Double) : Doubles- 
begin 

if (key = Valuel) then 

result := Resultl 
else if (key = Value2) then 

result := Result2 
else 

result := ResultElse; 

end; 

function TBPFunctions . bp_CASE 3 (Key , Valuel, Value2, Value3 , Resultl, 

Result2, Result3, ResultElse: Double) : Double ; 
begin 

if (key = Valuel) then 

result := Resultl 
else if (key = Value2) then 

result := Result2 
else if (key = Value3) then 

result := Result3 
else 

result := ResultElse; 
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1^59: function TBPFunctions .bp_CASE4 (Key, Valuel, Value2, Value3 , Value4, 
160: Resultl, Result2 / Result3, Result4, ResultElse: Double): Double; 
161: begin 

162: if (key = Valuel) then 

163: result := Resultl 

164: else if (key = Value2) then 

165: result := Result2 

166: else if (key = Value3) then 

167: result := Result3 

168: else if (key = Value4) then 

169: result := Result4 

170: else 

171: result := ResultElse; 

172: end; 
173 : 

174: function TBPFunctions. bp_IFAND2 (Valuel, Value2, Resultl, 
175: Result2: Double): Double; 
176: begin 

177: if (valuel >= 1) and (value2 >= 1) then 
178: result := resultl 

179: else 

180: result := result2 

181: end; 

182: 

183: function TBPFunctions .bp_IFE (Valuel , Value2, Resultl, 
184: Result2: Double): Double; 
185: begin 

186: if (valuel = value2) then 
187: result : = resultl 

188: else 

189: result : = result2 

190: fskld; 
191: Q 

192 : function TBPFunctions .bp__IFLE (Valuel, Value2 , Resultl, 
193 : W Result2 : Double): Double; 
194 : iegin 

if (valuel <= value2) then 
196: St result := resultl 
197:^! else 

198: ^1 result := result2 
199:pnd; 

200 : , 

201 function TBPFunctions. bp_IFOR2 (Valuel, Value2, Resultl, 

202 :U Result2: Double): Double; 

203 :|*feegin 

204 :J^ if (valuel >= 1) or (value2 >= 1) then 
205 :^ result := resultl 

206:^1 else 

207 :jp result := result2 
208:Send; 

209:' ^ 

210: function TBPFunctions .bpJVIAX (Valuel, Value2 : Double): Double; 
211: begin 

212: if Valuel > Value2 then 
213: Result := Valuel 

214: else 

215: Result := Value2 ; 

216: end; 

217: 

218: function TBPFunctions .bpJMIN (Valuel, Value2: Double): Double; 
219: begin 

220: if Valuel < Value2 then 
221: Result := Valuel 

222: else 

223: Result := Value2 ; 

224: end; 

225: 

226: function TBPFunctions . bp_0CCAPR (LoanDate , FirstPaymentDate : TDateTime; 
227: InterestRate, Principal, Term, Payment: Double): Double; 



228: 


var 




229: 


done 


: boolean 


230 : 


Ul 


: double; 


231: 


R 


: double; 


232 : 


a, 




233 : 


apr, 




234: 


Pi 


: Double; 


235: 


P0, 




236: 


x, 




237: 


u, 
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242 : 


VcLJT 








xl 






244 . 


vl 


extended, 




J . 


v2 


extended, 




246 


v3 


extended 




24 7: 


z 


extended 




*± O . 


y 


extended 




94Q . 
Z4j . 


occOddDays : extended; 


250 : 


unitPeriods : 


extended; 


251 : 


begin 






252 : 


occOddDays : = 


ComputeOccUnit Periods 


253 : 


PO 


= 0.00; 




254 : 


XI 


= 1.00 + X; 


255 


Y 


= 1.00 + OccOddDays * X / U; 


256 


VI 


= (1.00 / power (XI , unitPeriods 


257 


V2 


= 1.00 / power (XI, term) ; 


258 


V3 


= 1.00 - V2; 


259 


Z 


= VI * XI 


* payment * V3 / X; 


260 


PO 


= P0 + Z; 






end; 






262 


begin 






263 








264 


try 






265 


P : = 


= Principal; 


266 


U : = 


= 30; 




267 


Ul 


= U / OccDaysInYear; 


268 


J** R 


= InterestRate * Ul / 100.00; 



JP, { amount financed } 

APU : double; { actual APR } 

procedure ComputePV; 



re- 



done := False; 
while not done do 
begin 

X := 0.0001; 

IF R <> 0.000 THEN 
X : = R; 

ComputePV; 
PI := P0; 
X : = R + 0 .0001; 
ComputePV; 



^ APR : = R + (P - PI) / (P0 - PI) * 0.0001; 

^ A : = ABS (APR - R) ; 

0 IF A > 0.0000001 THEN 

□ R : = APR 

7- else begin 

y APU := (100.00 / Ul) * APR; 

done := True; 
end 

end; { while } 

result := APU; 
except 

result := 0.00; 
end; 
end; 



function TBPFunctions ,bp_ROUND ( Number ToRound, Exponent: Double): Double; 
var 

TempNuml : extended; 
TempNum2 : int64; 
begin 

TempNuml := NumberToRound * power (10, Exponent); 
TempNum2 : = round ( TempNuml ) ; 

result := TempNum2 * power(10, (Exponent * (-1))); 
end; 

function TBPFunctions .bpJTRUNC (NumberToTrunc, Exponent: Double): Double; 
var 

TempNuml : extended ; 
TempNum2 : int64; 
begin 

TempNuml := NumberToTrunc * power (10, Exponent); 
TempNum2 := t rune (TempNuml) ; ^ 
result := TempNum2 * power (10, (Exponent * {-vTrr-; 



end; 

function TBPFunctions . bp_IFGE (Valuel , Value2 , Resultl, 

Result2 : Double): Double; 
begin 

if (valuel >= value2) then 

result := resultl 
else 

result := result2 

end; 

function TBPFunctions . bp_ADDONPMT (Principal , Term, AddOnRate, 

DaysToFirstPayment : Double) : Double,- 
var 

netTerm : extended; 
oddTerm : extended; 
oddDay : extended; 
FinanceCharge : extended; 
begin 

oddDay := daysToFirstPayment - 30; 
oddTerm : = oddDay / 30; 
netTerm := term + oddTerm; 

if addOnRate < 1.00 then 

f inanceCharge := principal * addOnRate * netTerm / 12 
else 

f inanceCharge : = principal * addOnRate * 0.01 * netTerm / 12; 

result := {principal + f inanceCharge) /term; 
end; 

|#unction TBPFunctions .bpJPMT { InterestRate, Term, Principal, 

f 5 ! DaysToFirstPayment : Double): Double; 

Mar 

^ apr : extended; 

pv : extended ; 
hi //fv : extended; 

oddDay : extended; 
^1 dailyCharge : extended; 
NJ oddDayCharge : extended; 
fpegin 

J if interestRate > 1.00 then 
2_ apr := interestRate/100 . 00 
M else 

apr := interestRate; 

oddDay := (daysToFirstPayment - 30); 
^1 dailyCharge := (principal * apr)/365; 
Vi oddDayCharge := oddDay * dailyCharge; 
*%* pv := principal + oddDayCharge; 

^ result := - Math. Payment (apr/ 12, trunc(term), pv, 0, ptEndOf Period) ; 
end; 

function TBPFunctions . bp_VEHI CLEAGE (VehicleYear, 

MonthOfManuf acture: Double) : Double; 
var 

Past Year ,NumberOf Months, NumberOf Years, Present Year, PresentMonth, Day : word; 
begin 
try 

DecodeDate (Date, PresentYear, PresentMonth, Day) ; 

PastYear : = trunc (VehicleYear) ; 

if (PresentYear > PastYear -1) then 

begin 

NumberOf Years := PresentYear- PastYear ; 

NumberOf Months : = PresentMonth+ (NumberOf Years*12) + ( 12 - trunc (MonthOfManuf acture) ) 
end 
else 

NumberOf Months := 0; 

Result : = Number Of Months; 
except 
raise; 
end; 
end; 

function TBPFunctions . bp_CEILING (NumberToCeiling , 

Exponent: Double): Double; 
var 

TempNuml : extended; B-62 



396 
3*97 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 



" TempNum2 : Integer; 
begin 

TempNuml := NumberToCeiling * power (10, Exponent) ; 
TempNum2 : = ceil (TempNuml) ; 

result := TempNum2 * power(10, (Exponent * (-1)}); 
end; 

function TBPFunct ions .bp_FLOOR (NumberToFloor , Exponent: Double): Double; 
var 

TempNuml : Extended; 
TempNum2 : Integer; 
begin 

TempNuml := NumberToFloor * power (10, Exponent); 
TempNum2 := Floor (TempNuml) ; 

result := TempNum2 * power (10, (Exponent * (-int- 
end; 

function TBPFunct ions .bp_THISYEAR: Double; 
var 

Year, Month, Day : word; 
begin 

DecodeDate (Date, Year, Month, Day) ; 
result := Year; 
end; 

initialization 

TAutoOb j ectFactory . Create ( ComServer , TBPFunct ions , Class_BPFunctions , 
, , ciMulti Instance, tmApartment) ; 
j&d. 

O 
O 

w 
p 
H 



f3 



PS • 
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2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 

2204 yj 

2205ffl 

2206 r ; 

2207^ 
2208g1 
2209- 
2210^ 
22 ll* 8 * 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 



procedure Tf rmBPMain .MinimizeDiscount ; 
var 

guess : extended; 
loop_count, ierrcode : word; 
begin 
try- 
try 

ValidateFields; 

loop_COunt : = 0 ; 
guess := -999999999.00; 
Screen . Cursor : =crHourGlass ; 

UpdateErrorMessage ( ' Calculating . , 



Please Wait' 



//If deal structure not within possible parameters don't 
//bother to calculate discount 

ScreenToBPParameters; // from screen to parameter 
Evaluate; 

ierrcode : = ScriptControl . eval ( ' ErrCode ' ) ; 

BPParametersToScreen (false, false); //MODIFIED 21JUN01 JDP 

//If deal structure is within possible parameters then calculate discount 
if iErrCode <= 4 then 
begin 

edDiscount .asFloat : = UNREASONABLE_D IS COUNT ; 
end 

else begin 

UpdateErrorMessage (' Minimizing Discount... Please Wait ' ) ; 
edDiscount . asFloat := GetMinimumDi s count ; 
while not WithlnRange (guess) do 



MAX LOOP COUNT then 



begin 

if Loop_Count 
begin 

break; 
end else 
begin 

guess := edDiscount .AsFloat ; 
BuyProgramParameter . vRE SERVE 
Evaluate; 

edDiscount .AsFloat 
edDiscount .Update; 
inc (loop_count) ; 
end; 

end; // while 

BuyProgramParameter . vRE SERVE 
Evaluate; 



:= edDiscount .AsFloat ; 



GetNewDis count ; 
// updating- the screen to show user the progress 



Math. MAX (edDiscount .AsFloat, guess) ; 



edDiscount .AsFloat := BuyProgramParameter . vRE SERVE ; 
if BuyProgramParameter .vStructOK = False then 
begin 

loop_COunt := 0; 

repeat 

edDiscount .AsFloat := edDiscount .AsFloat + JUMP__AMT; 
BuyProgramParameter . vRE SERVE : = edDiscount .AsFloat ; 
Evaluate; 

edDiscount .AsFloat := BuyProgramParameter . vRESERVE ; 
edDiscount .Update; // update the screen 
if Loop_Count = MAX_LOOP_COUNT then 
begin 

Updat eDealMes sage ( 'Maximum Calculations Reached! Please recheck deal structure'); 
break; 
end; 

Inc (Loop__Count) ; 
until BuyProgramParameter . vStructOK=True ; 
end; 

Evaluate ; 
end; 
except 

raise; 
end; 
finally 

Screen . Cursor : =crDef ault ; 
CalculateFlag := True; 

if BuyProgramParameter .vS true tOK = True then 

UpdateErrorMessage ( ' ' ) ; 
BPParametersToScreen (false, false) ; //MODIFIED 21JUN01 JDP 

end; 
end; 
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Explanation of User Input for Buy Program 



Label on 


Variable Name in 




User Interface 


Expressions 


Meaninq 


Price 


Price 


Price of Vehicle 


DOC 


Doc 


Documentary fee charged to customer 


Smog 


Smog 


Fee for emissions testing and certificate 


Sales Tax 


TaxRate 


Sales Tax Rate 


Service Contract 


Warr 


Price of extended warranty sold to buyer 


License 


Lie Fee 


Cost of License/Registration 


Trade Allowance 


TradeAllowance 


Amount Dealer is giving for Trade-In 


Trade Payoff 


Trade Payoff 


Amount customer still owes on Trade-In 


Cash Down 


Down 


Amount of Cash Down Payment 


Insurance 


Ins 


(Y or N)=lf customer will purchase 






Comp/Collision insurance with contract 


Loan Date 


Not Used 


Date of contract 


Date to 1 st Pmt 


DaysToPay 


Number of days from contract date to 




First payment date 


Payments 


Term 


Number of monthly payments in contract 


Model Year 


vYear 


Year model of vehicle being sold 


Blue Book 


Book 


Kelley Bluebook wholesale valuation 






Of vehicle being sold 


Mileage 


Miles 


Miles on vehicle 


Class 


vClass 


"Class" of vehicle per Westlake 






Guidelines 


Cost 


Cost 


Dealer Cost of Vehicle/etc 


Svc Cont Cost 


WarCost 


Dealer Cost of extended warranty 
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THE FOLLOWING VARIABLES ARE INPUT PER WESTLAKE 

GUIDELINES 



Label on Variable Name in 
User Interface Expressions 



# Years on Credit Bureau YrsTRW 

# Good Credit Items Good 

$ High Good Credit HiGood 

# Derog Credit Items Derog 

$ High Derog Credit HiDerog 

# Of Repo/Auto Loss Repos 
Previous Bankruptcy? BK 
Customer Owns Home? Home 
Residence Stability Resid 
#YrsOnJob Job 

^ Gross Monthly Income Inc 

CJ Rent/Mortgage Rent 

y Family Support Debt Support 

* Other Monthly Debt Debt 

S Phone/Util/Chking in Name? PhBill 

t\ Spouse/Partner Co-X? Spouse 

P Other Co-X? Cox 

: SP#Good SpGood 

O SP $ High Good SpHiGood 

M= SP # Derog SpDerog 

Q SP High Derog SpHiDerog 

Jj SP YrsJob SpJob 

5 SP Income Spine 

m COX # Good CoxGood 

COX # Derog CoxDerog 

COX # Repo CoxRepo 

COX Income Coxlnc 

COX Owns Home CoxHome 

COX Parent CoxParent 
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